Application.Terminate und initialization

[himitsu]

wo hast du denn diesen Code in dein Programm eingebaut?

du kannst natürlich auch das Programm garnicht erst starten lassen:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  ProgHandle := CreateMutex(nil, True, 'Anwendung');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Run;
  end;
  CloseHandle(ProgHandle);
end.

// oder

begin
  ProgHandle := CreateMutex(nil, True, 'Anwendung');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
  CloseHandle(ProgHandle);
end.

// oder ... nja, halt das überspringen, was
// in diesem Fall nicht ausgeführt werden soll