Inno Setup - Läuft bestimmte Anwendung?

[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;