Frage zu Treads

[SleepyMaster]

Delphi-Quellcode:

procedure run;
begin
Shellexecute...........
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadID: DWORD;
  ThreadHandle: THandle;
begin
ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@Run),
    nil, 0, ThreadID);
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end;

[EDIT=SleepyMaster]Hatte Tags vergessen[/EDIT]