Kører der allerede en process?

Hej,

Selv benytter forskellige metoder til dette. En af de bedste syntes jeg at oprette en semafor.

if (CreateSemaphore(nil, 0, 1, \'sem_\'+Aplication.ExeName) <> 0) and
  (GetLastError = Error_Already_Exists) then
begin
  // Gør noget ved problemet!
  Exit;
end;

Martin

Arghhh .... skulle naturligvis være

Application.ExeName

Jeg får en error ved (CreateSemaphore(nil, 0, 1, \'sem_\'+Application.ExeName) <> 0

Incompatible types: String and PChar

In your main form create a variable...

fAtom : TAtom;

Then add this code:

{ ************************************************* }
{ FormCreate }
{ ************************************************* }
procedure TfrmMain.FormCreate(Sender: TObject);
begin
{ Searchs table to see if the program is already running }
if GlobalFindAtom(\'PROGRAM_RUNNING\') = 0 then
{ If not found then add it }
fAtom := GlobalAddAtom(\'PROGRAM_RUNNING\')
else
begin
{ If program is already running the show message and halt }
MessageDlg(\'There is already an instance of this program running.\',mtWarning, [mbOK], 0);
Halt;
end;
end;

{ ************************************************* }
{ FormDestroy }
{ ************************************************* }
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
GlobalDeleteAtom(fAtom);
end;


Stoney

Takker Stoney :)

Var
S : String;
begin
S := \'sem_\'+Application.ExeName;
if (CreateSemaphhore(nil, 0, 1, PChar(S)) <> 0...