ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
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, 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;
|
|
|
|
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, 23:34
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
FindeR, речь идет не о конкретных приложениях, а обо всех!
slesh, спасибо погуглю в эту сторону!
|
|
|
|
05.02.2009, 23:36
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Сообщение от ZirroCool
FindeR, речь идет не о конкретных приложениях, а обо всех!
эм...я ZET36 отвечал
|
|
|
|
06.02.2009, 02:04
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
FindeR, сорь видимо не очень внимательно прочитал!)
|
|
|
|
06.02.2009, 13:59
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
FindeR Огромное спасибо, смысл понятен, немножко подправил код
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Key : HKey;
Buf : array[0..1000] of char;
Err, index : longint;
BufSize: Cardinal;
zz: string;
begin
BufSize := 1024;
index:=0;
Err:=RegOpenKey(HKEY_CURRENT_USER,
'Software\WinRAR SFX',Key);
while err=ERROR_SUCCESS do
begin
if strpas(Buf)<>'' then memo1.lines.add(strpas(Buf));
Err:=RegEnumValue(KEY, index, buf,BufSize, nil, nil, nil, nil);
inc(index);
end;
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид