Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
procedure TWatek.SetName;
var
ThreadNameInfo: TThreadNameInfo;
begin
ThreadNameInfo.FType:=$1000;
ThreadNameInfo.FName:='TWatek';
ThreadNameInfo.FThreadID:=$FFFFFFFF;
ThreadNameInfo.FFlags:=0;
try
RaiseException($406D1388,0,SizeOf(ThreadNameInfo) div sizeof(LongWord),@ThreadNameInfo);
except
end;
end; JakisWatek:=TWatek.Create(true); with JakisWatek do
begin
Terminate;
WaitFor;
Free;
end; with TWatek.Create(False) do
OnTerminate:=KoniecObl;
w koniecobl niema niczego dotyczącego wątków...
2.jpg
(17.54 KB)
Musisz być zalogowany, aby pobrać ten załącznik.
1.jpg
(10.63 KB)
Musisz być zalogowany, aby pobrać ten załącznik.
informując nas o tym poprzez wygenerowanie zdarzenia OnTerminate, wskazującego na procedurę KoniecObl.
