檢測Delphi是否正在運行

{檢測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是否正在運作}