检测Delphi是否正在运行

最新推荐文章于 2025-05-19 16:12:52 发布

ShowMan

最新推荐文章于 2025-05-19 16:12:52 发布

阅读量937

点赞数

CC 4.0 BY-SA版权

文章标签： delphi c++builder function

本文链接：https://blog.youkuaiyun.com/ShowMan/article/details/9094

博客涉及Delphi和C++Builder中的函数相关内容，但具体内容未给出。Delphi和C++Builder是开发工具，函数是编程中的重要元素。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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