Kun én INSTANS af KONSOLPROGRAM

(Spørgsmålet er: Er der nogen, der har en løsning?).

De fleste af dem er freeware hvor sourcen følger med, og så er det jo bare at tage koden  og bruge.

f.eks:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
    Mutex: LongWord;

function JustOneTest : boolean;
var
  Title: Array[0..$100] of Char;
begin
    Title:='jowjow';
  Mutex:=CreateMutex(nil, False, Title);
  if (GetLastError = ERROR_ALREADY_EXISTS) or (Mutex = 0) then
    result:=false
  else
      result:=true;
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
    if not JustOneTest then
      exit;

    writeln('hello');
  readln;
end.

Det virker jo strålende. Læg et svar for points.

Med venlig hilsen

Hallandsen

ok