Einmaliges aufstarten eines Programms

[eassy]

hi,

ich glaube da gab es hier auch schon mal einen betrag für diese problem.
folgende möglichkeit gibt es: (in deine .dpr datei einfügen)

Delphi-Quellcode:

var
  mHandle: THandle;
begin
  mHandle := CreateMutex(nil,True,'Progammname'); (* hier den Namen eintragen *)
  if GetLastError = ERROR_ALREADY_EXISTS
  then Halt
  else
  begin
    Application.Initialize;
    ...
    Application.Run;
  end;
  if mHandle <> 0 then
   CloseHandle(mHandle);
end.

gruß
eassy