Запущена ли Delphi IDE

← →
Gu (2011-08-13 04:50) [0]

Вопрос такой, как определить, производится ли запуск приложения из среды Delphi IDE или вне его?
Т.е. наличие активных дельфей, понятно можно определить как:

Function GuIsDelphiRun:Bool;
begin
Result:=false;if FindWindow("TAppBuilder",Nil)<>0 then Result:=true;
end;

Но это немного не то, она вернет True, даже когда приложение запускается например из проводника, а дельфи просто активна. Т.е. что нужно: определить, запускается ли приложение из среды Delphi IDE (по F9) или из например проводника (в этот момент среда Delphi тоже может быть загружена).
Спасибо.

← →
Gu (2011-08-13 05:18) [1]

для первых версий ltkmab нашел это, но это не фурычит в delphi Xe (вообще это только для 1й версии вроде)

function InIDE: Boolean;
begin
Result := Bool(PrefixSeg) and
Bool(PWordArray(MemL[DSeg:36])^[8]));
end; { InIDE }

или как это под xe переделать?

← →
Gu (2011-08-13 05:25) [2]

угу, ответ нашел тут http://www.sql.ru/forum/actualthread.aspx?tid=189434

← →
Gu (2011-08-13 05:37) [3]

черт, не то.
Result:=DebugHook<>0;
не отрабатывает перед application.run;

еще идеи есть?

← →
Gu (2011-08-13 06:04) [4]

ага, сделал через IsDebuggerPresent kernel32.dll

← →
Юрий Зотов © (2011-08-15 16:46) [5]

> Gu (13.08.11 06:04) [4]

А если запущено под другим дебаггером?

Может быть, есть смысл копнуть в сторону породившего процесса?

http://forum.xakep.ru/m_1312971/tm.htm

> Gu (13.08.11 04:50)
>
> Вопрос такой, как определить, производится ли запуск приложения
> из среды Delphi IDE или вне его?

А для чего? Для создания триала? Сильно устаревший способ защиты, имхо.

Запущена ли Delphi IDE Найти похожие ветки