Rausfinden wie oft ein Programm läuft

[Luckie]

Und was steht in der angegeben Zeilennummer?

[blutsgeist]

Zeile 32:

Code:

THandle := CreateMutex(nil, True, 'calc.exe'+ IntToStr(i));

Zeile 37:

Code:

if THandle <> 0 then CloseHandle(THandle);

[Luckie]

Da stimmen aber alle Klammern. Kommentiere mal den ganzen Initialization abschnitt aus und probiere es noch mal.

[himitsu]

CreateMutex = WinAPI

Wenn man sich die Parameter ansieht, dann will das einen PChar (wobei den D2009-XE2 (?) natürlich von PWideChar redet)

'calc.exe'+ IntToStr(i) = String

Und was sagt dir die eine Fehlerzeile?

[blutsgeist]

Entweder bin ich zu doof oder ich blick nicht mehr durch.

Hier mal der gesagte Source:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
        i:Integer=0;
      Initialization //Zählen wie oft das Programm gestartet wird
          repeat
              THandle := CreateMutex(nil, True, 'calc.exe'+ IntToStr(i));
              Inc(i);
          until GetLastError <> ERROR_ALREADY_EXISTS;
          MessageBox(0, PChar('Das Programm wurde'+IntToStr(i)+'mal gestartet') , 'MeinProg', MB_OK)
      finalization
         if THandle <> 0 then CloseHandle(THandle);

end.

Glieder ich THandle := CreateMutex(nil, True, 'calc.exe'+ IntToStr(i)); und if THandle <> 0 then CloseHandle(THandle); aus, läuft das Programm. Sind die beiden aber wieder drin, zickt das nur rum -.-

[Luckie]

Argh.

Delphi-Quellcode:

var
  mHandle: THandle;

Hast du noch nie eine Variable deklariert?

[blutsgeist]

Paar Variablen habe ich schon Deklariert, allerdings ist das schon eine weile her -.-

Ausbildung und so ging einfach vor ...

Vielen Dank für eure Zeit, die ich in anspruch genommen habe.
Ich werde allerdings heute Delphi ruhen lassen... Sehe den Wald vor lauter Bäumen nicht mehr......

LG

[Delphi-Laie]

Zitat von WM_CLOSE:

Du könntest folgendes Versuchen:

Delphi-Quellcode:

      var
        i:Integer=0;      
      Initialization //Zählen wie oft das Programm gestartet wird
          repeat
              mHandle := CreateMutex(nil, True, 'InstanzMeinerApplikation'+ IntToStr(i));
              Inc(i);
          until GetLastError <> ERROR_ALREADY_EXISTS;
          MessageBox(0, PChar('Das Programm wurde'+IntToStr(i)+'mal gestartet') , 'MeinProg', MB_OK)
      finalization
         if mHandle <> 0 then CloseHandle(mHandle);

Man bemerke, dass das eine ziemlich fiese möglichkeit ist.

Inwiefern ist denn diese Möglichkeit "fies"?

[DelTurbo]

Hi,
ich habe es damals mit TJvAppInstances gemacht. Das ding kann aber nochmehr. Legs einfach mal drauf und spiel bissl mit rum. So lerne ich immer wenn ich was nicht weiss. Komme ich nicht weiter, dann google ich. zu 80% finde ich dann einen link nach hier, wo das steht was ich brauche.