Category: Miscellaneous
Title: Check if Delphi is running
Date added: 15.03.2006
Hits: 1916


function WindowExists(AppWindowName, AppClassName: string): Boolean;
var
  hwd: LongWord;
begin
  hwd    := 0;
  hwd    := FindWindow(PChar(AppWindowName), PChar(AppClassName));
  Result := False;
  if not (Hwd = 0) then {window was found if not nil}
    Result := True;
end;

function DelphiLoaded: Boolean;
begin
  DelphiLoaded := False;
  if WindowExists('TPropertyInspector', 'Object Inspector') then
    if WindowExists('TMenuBuilder', 'Menu Designer') then
      if WindowExists('TAppBuilder', '(AnyName)') then
        if WindowExists('TApplication', 'Delphi') then
          if WindowExists('TAlignPalette', 'Align') then
            DelphiLoaded := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DelphiLoaded then
  begin
    ShowMessage('Delphi is running');
  end;
end;


function DelphiIsRunning: Boolean;
begin
  Result := DebugHook <> 0;
end;

1. How to get the list of the installed softwares on a computer? (2193 Hits)

2. How to close an application with the escape key? (2848 Hits)

3. How to implement the Pascal Delay-function? (2754 Hits)

4. How to change the date format? (2684 Hits)

5. How to hide the desktop icons? (1382 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.