Einen ThreadCounter setzten / Thread besser verstehen.

[ReDoX]

Hi,
man sollte aber BeginTread und nicht CreatThread benutzen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadID: Cardinal;
  ThreadHandle: HWND;
begin
  ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@StarteThread), nil, 0, ThreadID);
  if ThreadHandle <> 0 then CloseHandle(ThreadHandle);
end;

Mfg ReDoX