Скачать: CL | DM;

Запущена ли 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]

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

---

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

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

---

← →
Юрий Зотов ©   (2011-08-15 17:54) [7]

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

---

← →
Германн ©   (2011-08-16 00:23) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c