{检测Delphi是否정재运行}
함수 DelphiIsRunning: 부울;
const
A1: char의 배열[0..12] = 'Tapplication'#0;
A2: char = 'TAignPalette'#0;의 배열[0..15]
A3: char = 'TPRopertyInspector'#0;의 배열[0..18]
A4: char = 'TAppBuilder'#0;의 배열[0..11]
{$IFDEF WIN32}
{$IFDEF VER130}
T1: char의 배열[0..15] = 'Delphi 5'#0;
{$ENDIF}
{$IFDEF VER120}
T1: char의 배열[0..15] = 'Delphi 4'#0;
{$ENDIF}
{$IFDEF 버전100}
T1: char의 배열[0..15] = 'Delphi 3'#0;
{$ENDIF}
{$IFDEF VER90}
T1: char의 배열[0..15] = 'Delphi 2.0'#0;
{$ENDIF}
{$IFDEF VER93}
T1: char = 'C++Builder'#0의 배열[0..15];
{$ENDIF}
{$IFDEF VER110}
T1: char = 'C++Builder'#0의 배열[0..15];
{$ENDIF}
{$IFDEF 버전125}
T1: char = 'C++Builder 4'#0;의 배열[0..15]
{$ENDIF}
{$ELSE}
T1: char의 배열[0..15] = 'Delphi'#0;
{$ENDIF}
시작하다
결과 := (FindWindow(A1,T1)<>0) 및
(FindWindow(A2,nil)<>0) 및
(FindWindow(A3,nil)<>0) 및
(FindWindow(A4,nil)<>0);
끝;
{检测Delphi是否정재运行}