thread olayının kullanışı

[BoDyGuArD]

thread olayının kullanışı
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 @Thread1nil0Thread1ID);

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

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