Zitat von
new32:
Zu den Threads:
Delphi-Quellcode:
function ThreadProc(p:Pointer):DWORD; stdcall; //* @Apollonius: TNX */
begin //* dieser code wird Thread ausgeführt */
MessageBox(0, 'Hallo', '', MB_OK);
Sleep(10000); //* Thread schläft; Hauptprogramm arbeitet weiter */
result:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var tid:DWORD;
hThread:THANDLE;
begin
hThread:=CreateThread(nil, 0, @ThreadProc, nil, 0, tid);
CloseHandle(hThread);
end;
mfg
Hallo nochmal,
aber das nun so gemacht, klappt auch ganz gut bis zum Ende, da bekomme ich einen
Anwendungsfehler: Code 1400 Ungültiges Fensterhandle ??
Wie muss mand die function denn im Kopf deklarieren?
Danke nochmal