Kun en instanc af programmet

Hvad mener du med kun at kunne startes \"en\" gang?

Gå op på www.undu.com der er nogle eks. på hvordan du gør

Kan vi få spøgsmålet på dansk??? §:-)

Kaldes med Application.Title som param.

--------------------------------

unit uJustOnce;

interface

function AppIsAlreadyRunning(const sUniqueText: String): Boolean;

implementation

uses Windows;

function AppIsAlreadyRunning(const sUniqueText: String): Boolean;
begin
  // If the named Mutex already exists, there\'s another copy running.
  if OpenMutex(MUTEX_ALL_ACCESS,False,PChar(sUniqueText)) <> 0 then Result := TRUE
  else Result := (CreateMutex(nil,False,PChar(sUniqueText)) = 0);
      // Otherwise, create a Mutex with a unique name.
      // This should succeed, unless we\'re out of resources.
  // Mutex handle is closed automatically when the process terminates.
  // Mutex is destroyed when the last handle to it is closed.
end;

end.


end.

----------------------------


/Martin

Martin> Du husker ikke hvilket nummer artiklen er i ?

Du kan bruge den funktion jeg har lagt op

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

Tak for hjælpen

Tak for hjælpen