Prüfen ob Delphi läuft

[Pseudemys Nelsoni]

Moin,

wie würdet ihr prüfen ob Delphi läuft? Ich hatte da an FindWindow gedacht und zwar das ich da auf die klasse "TAppBuilder" prüfe.... ist das für alle Delphiversionen korrekt?

[Bernhard Geyer]

Willst Du prüfen ob Delphi allgemein läuft oder ob deine Anwendung unter Delphi oder einem Debugger läuft?

[Pseudemys Nelsoni]

ich möchte prüfen, ob delphi allgmein laeuft

[A-M-X]

Erstmal folgendes in die Uses Liste einbinden:

uses TlHelp32;
Das die Funktion wo überprüft , ob eine EXE datei läuft:

Delphi-Quellcode:

function IsExeRunning(const AExeName: string): boolean;
var
  h: THandle;
  p: TProcessEntry32;
begin
  Result := False;

  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    Process32First(h, p);
    repeat
      Result := AnsiUpperCase(AExeName) = AnsiUpperCase(p.szExeFile);
    until Result or (not Process32Next(h, p));
  finally
    CloseHandle(h);
  end;
end;

Zu guter Letzt der Beispielaufruf:

Delphi-Quellcode:

 if IsExeRunning('Notepad.exe') then
   ShowMessage('Notepad läuft')
 else
   ShowMessage('Notepad läuft nicht');

_____________________

DANN kannst du noch Prüfen , ob ein Window "läuft":

Delphi-Quellcode:

var
  Handle: THandle;
begin
  Handle := FindWindow(PChar('Unbekannt - Editor'),nil);
  if Handle<>0 then 
    Showmessage('Editor ist schon gestartet')
  else
    Showmessage('Editor wurde noch nicht gestartet');

_____________________

1. Moeglichkeit
Läuft Delphi IDE?

Delphi-Quellcode:

  If FindWindow('TAppBuilder',nil) <= 0 then
    ShowMessage('Delphi läuft nicht')
  else
    ShowMessage('Delphi läuft');

2. Moeglichkeit

Delphi-Quellcode:

  if DebugHook <> 0 then
    ShowMessage('Inside IDE')
  else
    ShowMessage('StandAlone');

___________________


Du kannst natürlich auch die laufendne Prozesse ermitteln und Delphi rauspicken:

Uses Liste einbinden:

Delphi-Quellcode:

uses
 tlhelp32;

Die Funktion:

Delphi-Quellcode:

procedure GetProcessList(const aProcessList: TStrings);
var
  Snap: THandle;
  ProcessE: TProcessEntry32;
begin
  aProcessList.Clear;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessE.dwSize := SizeOf(ProcessE);
    if Process32First(Snap, ProcessE) then
      Repeat
        aProcessList.Add(ProcessE.szExeFile);
      Until not Process32Next(Snap, ProcessE)
    else
      RaiseLastOSError;
  finally
    CloseHandle(Snap);
  end;
end;

Beispielaufruf:

 GetProcessList(listbox1.Items);

[Matze]

@A-M-X: Das zeigt dir aber allg. an, ob eine Anwendung läuft, wenn du den Dateinamen hast. Und so genau sind die Möglichkeiten dann auch nicht.

@Mario: Im SDC steht dazu folgendes.


Nachtrag: Achtung, Kommentare dazu lesen:

Zitat:

Was noch viel wichtiger ist!

Hier die Deklaration von FindWindow:

HWND FindWindow(
LPCTSTR lpClassName,
LPCTSTR lpWindowName
);

Wie man sehen kann, ist der erste Parameter der Klassen-Name!!

Und nicht wie im Tipp beschrieben der zweite Parameter!

[A-M-X]

Ich hab es überarbeitet!

[Pseudemys Nelsoni]

Moin,

besten Dank an euch zwei, habt euch ja richtig Mühe gegeben

Noch ne Frage zu FindWIndow..... Ist TAppBuilder denn von Delphi 2-7 der Klassenname?

MfG