список программ по сети

[Alekcey]

Здравствуйте всем!
Как по IP компьютера в локальной сети определить список установленных на нем программ.

[Stilet]

Ну разве что подключится к удаленному реестру (через RegConnectRegistry) и почитать ветки для UnInstall...

[Alekcey]

Получается что НИКАК !

[Stilet]

Значит доступов не хватает на такую операцию.

[Serge_Bliznykov]

а чем ответ Stilet не устроил? У Вас нет админских прав на удалённом компьютере и/или прав на подключение? тогда действительно - никак!

[Alekcey]

Если для Вас установленые, это те кто в UnInstall то тогда это правильный путь.

При отключенной службе "Удаленный реестр" ничего не получится.

[Пепел Феникса]

а по вашему как тогда определять?

[Alekcey]

Согласен

Посмотрите что не так

procedure TForm1.Button1Click(Sender: TObject);

var
Key : HKEY;
SubKey : HKEY;
DataType : DWORD;
Size : DWORD;

Sub_SubKey : HKEY;
Buffer : array[0..1000] of char;
Index: Cardinal;
Err : longint;

begin

RegConnectRegistry('\\IVANOV_KA', HKEY_LOCAL_MACHINE, Key);

try

RegOpenKeyEx(Key, 'Software\Microsoft\Windows\Current Version\Uninstall', 0, KEY_READ, SubKey);
try

index:=0;

Err:=RegEnumKey(Sub_SubKey,index,Bu ffer,Sizeof(Buffer));
while err=ERROR_SUCCESS do { Oeee, iiea anou iia?acaaeu }
begin
Size := SizeOf(Buffer);

RegQueryValueEx(Sub_SubKey, 'DisplayName', nil, @DataType, @Buffer, @Size);

Memo1.Text:=Buffer;

inc(index);
Err:=RegEnumKey(Sub_SubKey,index,Bu ffer,Sizeof(Buffer)); { Cai?in }
end;

RegCloseKey(Sub_SubKey);

finally
RegCloseKey(SubKey);
end;

finally
RegCloseKey(Key);
end;

end;
Для меня сейчас главное понять как получить соответствующие значения из реестра. Проверки на ошибки будут, но позже.

[Alekcey]

Вопрос снят. Получилось. Осталось обработать ошибки

[Korben5E]

Сообщение от Alekcey

Вопрос снят. Получилось. Осталось обработать ошибки

есть такая штука - WMI, может очень и очень много
попробуйте копать в эту сторону