Inno Setup - Läuft bestimmte Anwendung?

[sirius]

Gibt es einen einfachen Parameter um herauszubekommen, ob eine Anwendung (in meinem Fall: Word) derzeit läuft? Dann soll die (De-)Installation abgebrochen werden.

Mit appMutex kann man ja seine eigene Anwendung testen ob sie läuft. Aber Winword gehört ja bekanntlich nicht mir und ich wüsste auch keinen Mutex den Winword setzt.

Ansonsten müsste ich eben PascalScript nehmen oder eine DLL einbinden.

[shmia]

Delphi-Quellcode:

var
  Word: OleVariant;
  Wordrunning : boolean;
begin
  try
    Word := GetActiveOleObject('Word.Application');
    Word := UnAssigned;
    Wordrunning := True;
  except
    Wordrunning := False;
  end;

[sirius]

Ich meinte in Inno Setup

[gnr82]

Hi,

du kannst den sourcecode auch in inno setup verwenden!

Ich seh aber nochmal genau nach wo...

[Daniel Schuhmann]

Mit weniger Ressourcen geht's auch, wenn man mit FindWindow nach dem Klassennamen 'OpusApp' fahndet.

[sirius]

Ja, ok. Das hätte ich jetzt nicht gedacht.

[roter kasten]
Ja, das gefällt mir irgendwie besser. Ich hatte es grad über process32first gemacht. Und das ganze in einer DLL die ich mit "dontcopy" mitgegeben habe. Dummerweise brauch ich die DLL auch beim deinstallieren.
(Hatte den roten Kasten erst gar nicht gesehen und das DP-Fenster lag die ganze Zeit im HG)

Edit:
Ich wollte ja nur wissen, ob man es gleich im Setup-Programm einstellen kann. Weis nicht wieviel ein OleObject brauch. Hier ist die universelle Lösung auf PS umgesetzt:

Code:

[ Code ]

type processentry32 = record
    dwSize: DWORD;
    cntUsage: DWORD;
    th32ProcessID: DWORD;
    th32DefaultHeapID: DWORD;
    th32ModuleID: DWORD;
    cntThreads: DWORD;
    th32ParentProcessID: DWORD;
    pcPriClassBase: Longint;
    dwFlags: DWORD;
    szExeFile: array[0..259] of Char;
  end;
  
function CreateToolhelp32Snapshot(flags,ProcessID: Dword):THandle;
external '[e-mail] stdcall';

function process32first(snaphandle:thandle;var processentry:processentry32):boolean;
external '[e-mail] stdcall';
function process32next(snaphandle:thandle;var processentry:processentry32):boolean;
external '[e-mail] stdcall';
procedure closehandle(handle:thandle);
external '[e-mail] stdcall';

const TH32CS_SnapProcess=2;

function test(name:string):boolean;
var handle:Thandle;
    pe:processentry32;
    s:string;
    i:integer;
begin
  handle:=CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  pe.dwSize:=sizeof(pe);
  try
    process32first(handle,pe);
    repeat
      i:=length(name)+1;
      if i>250 then i:=250;
      setlength(s,i);
      i:=1;
      while (i<=length(s))and(pe.szExeFile [i-1]<>#0) do begin //irgendiwe ging das nicht anders ??
        s[i]:=pe.szexefile[i-1];
        i:=i+1;
      end;
      setlength(s,i-1);
      result:=uppercase(name)=uppercase(s);
    until result or (not process32next(handle,pe));
  finally
    closehandle(handle);
  end;
end;