Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

functionDelphiLoaded : boolean;

{ Определение работающей Delphi. Во всяком случае, дает правильный результат если Delphi минимизирован, или имеет открытый проект. Также, правильный результат получается, если вызывающее приложение автономно, или запущено из-под IDE. Код написан на основе идей Wade Tatman wtatman@onramp.net - Mike O'Hanlon, The Pascal Factory, найденных в Delphi-Talk List. }

functionWindowExists(ClassName, WindowName: string): boolean;

{ Проверяем наличие определенного окна Window, используя для этого паскалевские строки вместо PChars. }

var

PClassName, PWindowName: PChar;

AClassName, AWindowName: array[0..63] ofchar;

begin

ifClassName = '' thenPClassName := nil

elsePClassName := StrPCopy(@AClassName[0], ClassName);

ifWindowName = '' thenPWindowName := nil

elsePWindowName := StrPCopy(@AWindowName[0], WindowName);

ifFindWindow(PClassName, PWindowName) <> 0 thenWindowExists := true

elseWindowExists := false;

end; {WindowExists}

begin{DelphiLoaded}

DelphiLoaded := false;

ifWindowExists('TPropertyInspector', 'Object Inspector') then

ifWindowExists('TMenuBuilder', 'Menu Designer') then

ifWindowExists('TApplication', 'Delphi') then

ifWindowExists('TAlignPalette', 'Align') then

ifWindowExists('TAppBuilder', '') thenDelphiLoaded := true;

end; {DelphiLoaded}

Следующая программа возвращает TRUE при запуске в Delphi IDE (ПРИМЕЧАНИЕ: это _не_ сработает, если подпрограмма в DLL).

functionInIDE: Boolean;

begin

Result := Bool(PrefixSeg) andBool(PWordArray(MemL[DSeg:36])^[8]));

end; { InIDE }

Вот три подпрограммы, работающие у меня в связке D1 и Win 3.1x:

functionLaunchedFromDelphiIDE: Boolean;

{----------------------------------------------------------------}

{ Осуществляем проверку запущенности приложения из-под Delphi }

{ IDE. Идея взята из сообщения в Delphi-Talk от Ed Salgado }

{ из Eminent Domain Software. }

{----------------------------------------------------------------}

begin

LaunchedFromDelphiIDE := Bool(PrefixSeg) {т.е. не DLL}

andBool(PWordArray(MemL[DSeg:36])^[8]);

end; {LaunchedFromDelphiIDE}

functionDelphiLoaded: Boolean;

{----------------------------------------------------------------}

{ Проверяем, загружена ли Delphi. Дает правильные результаты }

{ - если вызывающее приложение запущено отдельно, или из-под IDE}

{ - если Delphi имеет открытый проект }

{ - если Delphi минимизирована. }

{ Автор идеи Wade Tatman (wtatman@onramp.net). }

{----------------------------------------------------------------}

begin

DelphiLoaded := false;

ifWindowExists('TPropertyInspector', 'Object Inspector') then

ifWindowExists('TMenuBuilder', 'Menu Designer') then

ifWindowExists('TAppBuilder', '(AnyName)') then

ifWindowExists('TApplication', 'Delphi') then

ifWindowExists('TAlignPalette', 'Align') then

DelphiLoaded := true;

end; {DelphiLoaded}

functionDelphiInstalled: Boolean;

{----------------------------------------------------------------}

{ Проверяем наличие Delphi.ini, ищем в нем путь к Библиотеке }

{ Компонентов, после чего проверяем ее наличие по этому пути. }

{----------------------------------------------------------------}

varIniFile: string;

begin

DelphiInstalled := false;

IniFile := WindowsDirectory + '\Delphi.ini';

ifFileExists(IniFile) then

ifFileExists(GetIni(IniFile, 'Library', 'ComponentLibrary')) then

DelphiInstalled := true;

end; {DelphiInstalled}

Я уверен, что один из приведенных выше методов вам поможет. Последние две подпрограммы используют некоторые другие инкапсуляции Windows API и классов Delphi, и они определены следующим образом:

functionWindowExists (WindowClass, WindowName: string): Boolean;

{----------------------------------------------------------------}

{ С помощью паскалевских строк проверяем наличие определенного }

{ окна. Для поиска только имени окна (WindowName), используем }

{ WindowClass '(AnyClass)'; для поиска только класса окна }

{ (WindowClass), используем WindowName '(AnyName)'. }

{----------------------------------------------------------------}

var

PWindowClass, PWindowName: PChar;

AWindowClass, AWindowName: array[0..63] ofChar;

begin

ifWindowClass = '(AnyClass)' thenPWindowClass := nil

elsePWindowClass := StrPCopy(PChar(@AWindowClass), WindowClass);