работа с реестром.

[kozei]

Вот, такая фигня возникла. помогите разобраться с реестром какой-нить пример на тему извлечения списка программ.Короче как узнать установленные проги на компе програмно?.И естественно чрез API.?

[Трофимов Александр]

procedure TForm1.Button1Click(Sender: TObject);
var
  MyKey: HKey;  
  Buffer: array[0 .. 1000] of char; 
  Err,
  index: longint; 
begin
 Err := RegOpenKey(HKEY_LOCAL_MACHINE, 'SOFTWARE', MyKey); 
 if Err <> ERROR_SUCCESS then
  begin
   MessageDlg('Нет раздела !!', mtError, [mbOk], 0);
   exit;
  end;
 index := 0;
 Err := RegEnumKey(MyKey, index, Buffer, Sizeof(Buffer));
 while err = ERROR_SUCCESS do
  begin 
   memo1.lines.add(StrPas(Buffer)); 
   inc(index);
   Err := RegEnumKey(MyKey, index, Buffer, Sizeof(Buffer)); 
 end; 
 RegCloseKey(MyKey);
end;

Правда чтобы правильно работал, надо отдельные записи отфильтровывать.

[kozei]

Огромное спасиббо.

[kozei]

Трофимов Александр,не совсем, то. там надо извлекать значение DisplayName. и адрес папки извлечения не HKEY_LOCAL_MACHINE\SOFTWARE,
а HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\Uninstall
в первом пути далеко не все, и не правда. Вопрос. какой функцией извлекается значение поля в ключах?

[rpy3uH]

ReadBool
ReadCurrency
ReadDate
ReadDateTime
ReadFloat
ReadInteger
ReadString
ReadTime

пример
function ReadInteger(const Name: String): Integer;
аналогично с другими функциями
function ReadХХХ(const Name: String): ХХХ;

[kozei]

Так то оно естественно, но это юнит реджистри, мне через АПИ надо...
кто нить можеть попроще описать функцию RegQueryValueEx?

[Трофимов Александр]

procedure TForm1.FormActivate(Sender: TObject);
const
 UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
 h:HWND;
 Reg: TRegistry;
 SubKeys: TStringList;
 ListItem: TlistItem;
 i: integer;
 sDisplayName, sUninstallString,s: string;
 SearchRec:TSearchRec;
begin
 Reg := TRegistry.Create;
 with Reg do
  try
   with ListView1.Items do
   try
    BeginUpdate;
    Clear;
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKeyReadOnly(UNINST_PATH) then 
     begin
      SubKeys := TStringList.Create;
      try 
       GetKeyNames(SubKeys);
       CloseKey; 
       for i := 0 to subKeys.Count - 1 do
        if OpenKeyReadOnly(Format('%s\%s', [UNINST_PATH, SubKeys[i]])) then 
          try
           sDisplayName := ReadString('DisplayName');
           sUninstallString := ReadString('UninstallString');
           if sDisplayName <> '' then 
            begin
             ListItem := Add;
             ListItem.Caption := sDisplayName;
             ListItem.subitems.Add(sUninstallString);
            end;
           finally
            CloseKey;
           end; 
        finally
         SubKeys.Free; 
        end;
      end;
      finally
       ListView1.AlphaSort;
       EndUpdate;
     end;
     finally
      CloseKey; 
      Free;
    end;
end;

от модера: форматируй сообщения, получаешь предупреждение