Hvordan detekteres at programmet allerede kører ?

Der er flere måder at gøre det på. En nem måde er at dit program laver en fil når det starter, og hvis filen allerede findes så skal programmet afslutte. Du kan også slrive en værdi et sted i Registreringsdatabasen og læse den for at finde ud af om programmet kører. Du kan også bruge FinWindow for at se om der allerede er åbnet et vindue med den titel som dit program har.

Det var bare et par muligheder :)

Snowball

Måske kan dette bruges:

http://www.delphipages.com/tips/thread.cfm?ID=33

Prøv at gøre som følger i din DPR fil :

program Project1;

uses
  Windows,
  Forms,
  Unit1 in \'Unit1.pas\' {Form1};

{$R *.res}

begin
  CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, 1000, \'MY MAP NAME GOES HERE\');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
    //Programmet kører allerede
end.

Jens B

Det er lidt uretfærdigt at afvise svar som måske er OK, men Sannen\'s forslag var det jeg afprøvede først og det virker fint. Metoden med en fil havde jeg tænkt på, men filen kan jo være blevet oprettet tidligere og ikke blevet slettet hvis Windoze havde crashet. (Det sker jo)