Ich schreibe hier nochmal rein, da ich noch eine Idee hatte, diese aber nicht funktioniert.
Delphi-Quellcode:
Procedure Arbeit;
Function Rechnen (a, b, c: Integer): Integer; //mehrere Paramter, die in einer Prozedure untergebracht werden
begin
Result := a + b + c;
end;
begin
Form1.Label1.Caption := IntToStr(Rechnen(20, 50, 60); //Funktion wird innerhalb der Prozedure aufgerufen
end;
Procedure Button1.Click...
var
ID: Cardinal;
ArbeitHandle: THandle;
begin
try
ArbeitHandle := BeginThread(nil, 0, @Arbeit, nil, 0, ID); //Prozedur Arbeit wird aufgerufen
if ArbeitHandle = 0 then
ShowMessage('Fehler beim Laden');
finally
CLoseHandle(ArbeitHandle);
end;
end;
Es gibt keine Compilerfehler oder so. Das Programm friert nur ein und ich habe eine CPU auslastung von > 80% (Quadcore, 4x3Ghz)