thread olayının kullanışı

[*MeLeK*]

var
Form1: TForm1;
Thread1ID, Thread1Handle : Cardinal;

Procedure Thread1;SafeCall;
begin
//buraya çalıştığı zaman programınızda duraklamaya neden olan
//işlevlerin kodlarını yazın...
//örneğin ben ftp ye upload yaparken program da diğer işlevler
//beklemeye geçiyodu böle bir yapı ile sorunumu çözdüm..
end;

//başlatacağınız zaman bu kodu kullanacaksınız sadece....
Thread1Handle := CreateThread(nil, 1024, @Thread1,nil,0,Thread1ID);

//gerek duyarsanızda diğer işlevler için:

//durdurmanız gerekirse aşağıdakini...
TerminateThread(Thread1Handle,0);
//askıya almak için bunu
SuspendThread(Thread1Handle);
//askıya lındığı zaman yeniden devam için..
ResumeThread(Thread1Handle);