Вывод прогреса на форму из TThread

[Makin_tosh]

Здравствуйте! Подскажите, как сделать так, чтобы поток, созданный в форме выводил прогрес на эту форму.
Требуется осуществлять копирование файлов потоками.
Делаю так:
Создаю поток в динамически созданной форме

SFile_Temp = Edit1->Text;
DFile_Temp = Edit2->Text;

VProcess_Temp = 1;
TProcess *ODF_ThreadPro;
ODF_ThreadPro = new TProcess(true, VProcess_Temp, true, SFile_Temp,
	DFile_Temp, SMFile_Temp, SMDir_Temp);
int id_Thread = ODF_ThreadPro->ThreadID;
TForm::Caption = id_Thread;
ODF_ThreadPro->FreeOnTerminate = true;
ODF_ThreadPro->Resume();

В потоке:

DWORD CALLBACK CopyProgressRoutine(
	LARGE_INTEGER  TotalFileSize,          // размер файла
	LARGE_INTEGER  TotalBytesTransferred,  // переносимые байты
	LARGE_INTEGER  StreamSize,             // байты в потоке
	LARGE_INTEGER  StreamBytesTransferred, // переносимые потоком байты
	DWORD  dwStreamNumber,                 // текущий поток
	DWORD  dwCallbackReason,               // причина возврата
	HANDLE  hSourceFile,                   // дескриптор источ. файла
	HANDLE  hDestinationFile,              // дескриптор целевого файла
	LPVOID  lpData)                        // из CopyFileEx
{
	if (dwCallbackReason == CALLBACK_CHUNK_FINISHED)
		{
			int percent = (( double(TotalFileSizeP_All) / double(TotalFileSize_All)) *100);

		String namePrg = (String)GetCurrentThreadId();
		HWND hwndPB = 0;
		hwndPB = FindWindow("TForm2", namePrg.t_str());
		if(hwndPB)
		{
		PostMessage(hwndPB, WM_HANDLE_THREAD_M4, percent, GetCurrentThreadId());
		}

			//Посылка сообщения об общем прогрессе
			//------------------------------------------------------------------
			ODFProPanelLabel4P = "Байтов отработано " + (String)float(TotalBytesTransferred.QuadPart);
			ODFProPanelLabel4P = ODFProPanelLabel4P + " из " + (String)float(TotalFileSize.QuadPart);
		}
	return PROGRESS_CONTINUE;
}

И в форме обрабатываю сообщение:

void __fastcall TForm2::HANDLE_THREAD_M4(TMessage &S_Message)
	//Окно прогресса операций над файлами и каталогами
	//Прогресс текущего файла в процессе
{
	if (TForm2::Caption == S_Message.LParam) {
		ProgressBar1->Position = S_Message.WParam;
	}
}

Сейчас получается так, что прогресс первой из созданных форм повторяет прогрес второй.

[FataLL]

Предполагаю, что GetCurrentThreadId возвращает один и тот же Id, а именно - основного потока.

[Makin_tosh]

Сейчас сделал так:
Создал форму:

	TForm2 *Form2_ = new TForm2(Owner);
	Form2_->_proForm = Form2_->Handle;
	Form2_->Show();

В самой форме стартую поток:

		ODF_ThreadPro = new TProcess(true, _proForm_, VProcess_Temp, true, SFile_Temp,
									DFile_Temp, SMFile_Temp, SMDir_Temp);

В потоке:

__fastcall TProcess::TProcess(bool CreateSuspended, HANDLE proForm, int VProcess, bool OptCopy,
	String SFile_, String DFile_, String SMFile_, String SMDir_)
	: TThread(CreateSuspended)
{
	VProcess_Th = VProcess;
	OptCopy_Th = OptCopy;
	SFile_Th = SFile_;
	DFile_Th = DFile_;
	SMDir_Th = SMDir_;
	SMFile_Th = SMFile_;
	proForm_ = proForm;
}

Функция CopyFileEx(Src.t_str(), Dest.t_str(), &CopyProgressRoutine, proForm_, NULL, dwCopyFlags_))
В DWORD CALLBACK CopyProgressRoutine(

...
PostMessage((HWND)lpData, WM_HANDLE_THREAD_M4, 0, percent);

Все равно, ловят Message все формы с прогрессбаром.
Как все сделать правильно? Спасибо!

[FataLL]

Непонятно, откуда _proForm_ при создании потока? По идее, там должно быть _proForm, или просто Handle.

[Avazart]

Передавать в поток - хендл его формы - слать сообщение содержащее соответствующему окну ( handl-у ).

И не использовать это :

hwndPB = FindWindow("TForm2", namePrg.t_str());

1. FindWindow находит первое попавшееся окно.
2. Не используйте t_str() - это зло ... ( указывайте конкретно либо c_str() либо w_str() )

Для синхронизации можно использовать TIdNotify.

[Makin_tosh]

У меня создается дополнительная форма по кнопке Создать поток

	TForm2 *Form2_ = new TForm2(Owner);
	Form2_->_proForm = Form2_->Handle;
	Form2_->Show();

Непонятно, откуда _proForm_ при создании потока? По идее, там должно быть _proForm, или просто Handle.

Я изменил сейчас на Handle

		TProcess *ODF_ThreadPro;
		ODF_ThreadPro = new TProcess(true, Handle, VProcess_Temp, true, SFile_Temp,
									DFile_Temp, SMFile_Temp, SMDir_Temp);

И, пытаюсь передать сообщение:

		if (!CopyFileEx(Src.t_str(), Dest.t_str(), &CopyProgressRoutine, proForm_Th, NULL, dwCopyFlags_)) {
			return false;
		}

Собственно, пересылка сообщения:

               PostMessage((HWND)lpData, WM_HANDLE_THREAD_M4, 0, percent);

proForm_Th = proForm;

ВСЕ РАВНО! Прогресс двигается одинаково.

Avazart! Дайте пример пожалуйста.

[Avazart]

TProcess это поток ? Что за названия такие блин ?

[Avazart]

TForm2 *Form2_ = new TForm2(Owner);
TMyThread* TMyThread1= new TMyThread(false, Form2->Handle);
//...

[Makin_tosh]

Avazart! Не трудно будет Вам взглянуть на мой проект, если возможно, поправить?
Проба 2.zip

[Avazart]

У вас в проекте Альфа скины как я его запущу ?