Delphi-Quellcode:
function XShow(p:pointer):integer;
begin
ShowMessage('Hallo');
end;
procedure StartThread(Thread:procedure); //<--- Das procedure da mag er ned!
//Hab aber leider keinen Plan was ich sonst da reinschreiben muss!
var
ThreadID: DWORD;
ThreadHandle: THandle;
begin
ThreadHandle:=BeginThread(nil, 0, TFNThreadStartRoutine(@Thread),
nil, 0, ThreadID);
if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StartThread(XShow);
end;
Wie muss es richtig heißen???
Vielen Dank schon mal