ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
03.02.2009, 17:01
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
Провел на форуме:
83889
Репутация:
1
|
|
slesh ты великий человек !
|
|
|
04.02.2009, 15:41
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
Провел на форуме:
83889
Репутация:
1
|
|
Indy
Как оказалось у меня в дельфи нет библиотеки indy у меня седьмая версия никак не могу найти в инете эту библиотеку кто может укажите откуда скачивать буду много благодарен
|
|
|
|
04.02.2009, 20:48
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Они есть в 7 версии, но бывают не установленными. Для их установки сделаю следующее в меню:
Component -> Install Packages...-> Add -> в папке delphi\bin выбирай и устанавливай bpl файлы. Там должны быть типа dclindy70.bpl
|
|
|
|
05.02.2009, 12:49
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Как получить список параметров нужного ключа по средствам Api?
http://msdn.microsoft.com/en-us/library/ms724909(VS.85).aspx
примеров не даёт
|
|
|
|
05.02.2009, 13:59
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
т.е. тебе нужно поглядеть все значения ветки?
Тебе случаем не эти функции нужны?
RegEnumKey() - перечисление ключей
RegEnumValue() - перечисление значений
Последний раз редактировалось slesh; 05.02.2009 в 14:12..
|
|
|
|
05.02.2009, 15:35
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
slesh
например я знаю имя ключа
HKEY_CURRENT_USER\Software\WinRAR SFX
нужно получить список его параметров
тоесть
D%%Program Files%WinRAR и
D%%WINDOWS%system
|
|
|
|
05.02.2009, 16:26
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от crystalbit
Component - Import ActiveX Control
ShockWave Flash
потом добавляешь в uses ShockwaveFlashObjects_TLB
и создаешь компонент типа TShockWave Flash
и, думаю, надо вытащить во временный файл из ресурса ролик
Как проигрывать флеш я разобрался.
Кидаем все компоненты, и для запуска юзаем:
Код:
ShockwaveFlash1.Movie := 'С:\ball.swf';
Label4.Caption := IntToStr(ShockwaveFlash1.TotalFrames);
Но всё-таки как проиграть флешку из .res файла не извлекая его никуда???
|
|
|
|
05.02.2009, 19:20
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
Всем здрасьте!
Подскажите люди добрае как мне отследить запуск какого либо приложения в системе(не важно консольного или оконного), узнать его местонахождение и приостановить на некоторое время!
Буду благодарен за пример, ибо про перехват функций в инете написанно очень много, но слишком много ненужных в моем случае букаф, которые мешают уловить суть!
|
|
|
|
05.02.2009, 21:16
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Когдато я писал подобные вещи. Для 100% работы нужно писать драйвер. Это единственынй нормальный метод.
Суть состоит в том, чтобы система сама уведомляла тебя о запуске процесса.
Для этого делается следующе:
VOID CreateProcessNotifyRoutine(IN HANDLE ParentId, IN HANDLE ProcessId, IN BOOLEAN Create)
{
....-.-.-.-.-.........
}
PsSetCreateProcessNotifyRoutine(*CreateProcessNoti fyRoutine, TRUE);
|
|
|
|
05.02.2009, 22:20
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Сообщение от ZET36
slesh
например я знаю имя ключа
HKEY_CURRENT_USER\Software\WinRAR SFX
нужно получить список его параметров
тоесть
D%%Program Files%WinRAR и
D%%WINDOWS%system
Ну, видимо
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Key : HKey;
Buf : array[0..1000] of char;
Err, index : longint;
BufSize: Cardinal;
begin
BufSize := 1024;
index:=0;
Err:=RegOpenKey(HKEY_CURRENT_USER,
'Software\WinRAR SFX',Key);
while err=ERROR_SUCCESS do
memo1.lines.add(strpas(Buf));
inc(index);
Err:=RegEnumValue(KEY, index, buf,BufSize, nil, nil, nil, nil);
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
