检测delphi是否正在运行_delphi教程

{检测Delphi是否正在运行}
function DelphiIsRunning: Boolean;
const
A1: array[0..12] of char = TApplication#0;
A2: array[0..15] of char = TAlignPalette#0;
A3: array[0..18] of char = TPropertyInspector#0;
A4: array[0..11] of char = TAppBuilder#0;
{$IFDEF WIN32}
{$IFDEF VER130}
T1: array[0..15] of char = Delphi 5#0;
{$ENDIF}
{$IFDEF VER120}
T1: array[0..15] of char = Delphi 4#0;
{$ENDIF}
{$IFDEF VER100}
T1: array[0..15] of char = Delphi 3#0;
{$ENDIF}
{$IFDEF VER90}
T1: array[0..15] of char = Delphi 2.0#0;
{$ENDIF}
{$IFDEF VER93}
T1: array[0..15] of char = C++Builder#0;
{$ENDIF}
{$IFDEF VER110}
T1: array[0..15] of char = C++Builder#0;
{$ENDIF}
{$IFDEF VER125}
T1: array[0..15] of char = C++Builder 4#0;
{$ENDIF}
{$ELSE}
T1: array[0..15] of char = Delphi#0;
{$ENDIF}
begin
Result := (FindWindow(A1,T1)<>0) and
(FindWindow(A2,nil)<>0) and
(FindWindow(A3,nil)<>0) and
(FindWindow(A4,nil)<>0);
end;
{检测Delphi是否正在运行}