{检测Delphi是否正在运行}
函数 DelphiIsRunning: 布尔值;
常量
A1: char 的数组[0..12] = 'Tapplication'#0;
A2: char 的数组[0..15] = 'TAlignPalette'#0;
A3: char 的数组[0..18] = 'TPROpertyInspector'#0;
A4: char 的数组[0..11] = 'TAppBuilder'#0;
{$IFDEF WIN32}
{$IFDEF 版本130}
T1: char 的数组[0..15] = 'Delphi 5'#0;
{$ENDIF}
{$IFDEF 版本120}
T1: char 的数组[0..15] = 'Delphi 4'#0;
{$ENDIF}
{$IFDEF 版本100}
T1: char 的数组[0..15] = 'Delphi 3'#0;
{$ENDIF}
{$IFDEF 版本90}
T1: char 的数组[0..15] = 'Delphi 2.0'#0;
{$ENDIF}
{$IFDEF 版本93}
T1: char 的数组[0..15] = 'C++Builder'#0;
{$ENDIF}
{$IFDEF 版本110}
T1: char 的数组[0..15] = 'C++Builder'#0;
{$ENDIF}
{$IFDEF 版本125}
T1: char 的数组[0..15] = 'C++Builder 4'#0;
{$ENDIF}
{$其他}
T1: char 的数组[0..15] = 'Delphi'#0;
{$ENDIF}
开始
结果 := (FindWindow(A1,T1)<>0) 和
(FindWindow(A2,nil)<>0) 和
(FindWindow(A3,nil)<>0) 和
(FindWindow(A4,nil)<>0);
结尾;
{检测Delphi是否正在运行}