Indem du keine Konsolenanwendung schreibst?
{$APPTYPE CONSOLE}
weglassen.
Meckert dein Delphi nicht darüber, daß du Result nicht initialisierst?
Zitat:
Delphi-Quellcode:
function ConsoleEventProc(CtrlType: DWORD): BOOL; stdcall;
begin
if (CtrlType = CTRL_CLOSE_EVENT) then
begin
exit;
end;
Result := True;
end;
Auf was wird Result wohl stehen, wenn das Exit zuschlägt?
Genau, auf einem Zufallswert.