max 1x

Du kan bruke Semaphores:

procedure TForm1.FormCreate(Sender: TObject); 
var
  Sem: THandle;
begin
  Sem := CreateSemaphore(nil, 0, 1, 'MITT_PROGRAM');
  if (Sem > 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    CloseHandle(Sem);
    // terminate, da programmet er åpent..
    Halt;
  end;
  // ..kode...
end;

Mvh
DiZpel

[Redigeret d. 03/06-04 18:36:31 af DiZpel]

Du kan også bruge Mutex.

function IsAppRunning: BOOL;
var
  fHandle: HWND;
begin
  fHandle:= CreateMutex(nil,False,PChar(Application.Title));	// Check if application has been launched?
 try
  result:= GetLastError = ERROR_ALREADY_EXISTS;	// is current application running?
 // well, if you don't like this message, you can write your own error message...
  if result then
  begin
    ShowMessage('File Launcher is already running!');
    CloseHandle(fHandle);	// Handles are memory eaters, so get rid-off second copy...
  end;
 finally
  ReleaseMutex(fHandle);	// make sure free mutex.
 end;
end;

I formCreate skriver du

begin
if not IsAppRunning then

else
Application.Terminate;
end



-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

hvad er forskellen på de 2, hvordan virker de, og hvordan kan jeg sende parametren over til det allerede åbnede program?

mangelfuldt svar, lukker