Alternative zu While

[value is NULL]

geil flutscht!

Habe folgende schnippsel im Netz gefunden:

Start Thread

Delphi-Quellcode:

Function StartThread(pFunction : TFNThreadStartRoutine; iPriority : Integer = Thread_Priority_Normal; iStartFlag : Integer = 0) : THandle;
var
  ThreadID : DWORD;
begin
  Result := CreateThread(nil, 0, pFunction, nil, iStartFlag, ThreadID);
  if Result <> Null then
  SetThreadPriority(Result, iPriority);
end;

Close Thread

Delphi-Quellcode:

Function CloseThread( ThreadHandle : THandle) : Boolean;
begin
  Result := TerminateThread(ThreadHandle, 1);
  CloseHandle(ThreadHandle);
end;