Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как узнать, что программа запущена из-под IDE 
:(
    Опции темы
Akella
Дата 18.7.2006, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Как программно узнать, что программа запущена из-под IDE/Delphi? 
PM MAIL   Вверх
z-END
Дата 18.7.2006, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102



я поступаю очень просто: смотрю запущена ли дельфи или нет.  


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 

PM WWW ICQ   Вверх
Петрович
Дата 18.7.2006, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55



А интересует именно "из под IDE" или "из под IDE под отладчиком"? 


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
Snowy
Дата 18.7.2006, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



PM MAIL   Вверх
Yanis
Дата 18.7.2006, 09:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111



PID одной из запущенных копий Delphi должен быть равен PID'у родительского процесса программы. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
BUGOR
Дата 18.7.2006, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 5
Всего: 16



Самый простой вариант:

Код

procedure TForm1.FormCreate(Sender: TObject);
var
    ProcAddr: function:boolean;
begin
    @ProcAddr := GetProcAddress(LoadLibrary('kernel32.dll'),'IsDebuggerPresent');
    if Assigned(ProcAddr) then
        if ProcAddr then ShowMessage('Is IDE');
end;
 


--------------------
Живу недоумевая, всё время хочу понять...
http://hunger.ru 
PM MAIL WWW ICQ   Вверх
Akella
Дата 18.7.2006, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



есть строка кода
Код

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

мне нуна, чтобы она не срабатывала у моих пользователей

Добавлено @ 11:19 
Цитата(z-END @  18.7.2006,  09:34 Найти цитируемый пост)
я поступаю очень просто: смотрю запущена ли дельфи или нет.


Цитата(Akella @  18.7.2006,  08:55 Найти цитируемый пост)
Как программно узнать, что программа запущена из-под IDE/Delphi? 

 
PM MAIL   Вверх
Romikgy
Дата 18.7.2006, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



Akella,  smile 
Цитата(Akella @  18.7.2006,  10:17 Найти цитируемый пост)
 смотрю запущена ли дельфи или нет.

дык программно и смотрим smile 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Akella
Дата 18.7.2006, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Romikgy, почитай, что ответил z-END 
PM MAIL   Вверх
BUGOR
Дата 18.7.2006, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 5
Всего: 16



Akella, и в чём трабла? Я же вроде верно тебя понял и показал как следует сделать:

procedure TForm1.FormCreate(Sender: TObject);    
var    
    ProcAddr: function:boolean;    
begin    
    @ProcAddr := GetProcAddress(LoadLibrary('kernel32.dll'),'IsDebuggerPresent');    
        if ProcAddr then ReportMemoryLeaksOnShutdown := DebugHook <> 0;
end; 


--------------------
Живу недоумевая, всё время хочу понять...
http://hunger.ru 
PM MAIL WWW ICQ   Вверх
Romikgy
Дата 18.7.2006, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



Akella, читал и твой ответ тоже читал
Цитата(Akella @  18.7.2006,  10:17 Найти цитируемый пост)
Цитата(z-END @  18.7.2006,  09:34 )я поступаю очень просто: смотрю запущена ли дельфи или нет.Цитата(Akella @  18.7.2006,  08:55 )Как программно узнать, что программа запущена из-под IDE/Delphi?  

 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Snowy
Дата 18.7.2006, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Akella, в FAQ то загляни.
Я линку прямую дал. 
PM MAIL   Вверх
Akella
Дата 18.7.2006, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



да, конечно, yj только там ищется окно Delphi, мне же хотелось узнать запущена ли программа "самостоятельно" или же из-под delphi 
PM MAIL   Вверх
sergejzr
Дата 18.7.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360



Вроде в дельфи ты можешь настроить, чтобы прога с аргументами запускалась аргументы (в принципе в любой ИДЕ это так).
Свой аргумент выдумай smile 


--------------------
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Rennigth
Дата 18.7.2006, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76



Akella, а чем всеже тебя не устраивает проверка на Debug-привелегию? уже и пример привели... 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0975 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.