检测Delphi是否正在运行

检测Delphi是否正在运行

http://www.tommstudio.com(2001年4月19日) 作者: Icebird(推荐) 推荐:Icebird

---

{检测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是否正在运行}

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有