检测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;

http://www.gaodaima.com/65548.html检测delphi是否正在运行_Delphi

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

欢迎大家阅读《检测delphi是否正在运行_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 检测delphi是否正在运行_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注