| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В windows 98 работает а с win2k нет [D6, Win95/98, WinXP]

otar ©   (2003-11-12 17:57:00) 

uses Registry;
...
procedure TForm1.Button1Click(Sender: TObject);
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
Str: string;
begin
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey(
"Software\Microsoft\Windows\CurrentVersion\Uninstall",
False)=True then GetKeyNames(MyList);
CloseKey;

for i:=0 to MyList.Count-1 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey(
"Software\Microsoft\Windows\CurrentVersion\Uninstall\"+
MyList[i],
False);
Str:=ReadString("DisplayName");
if Str<>"" then
Memo1.Lines.Add(ReadString("DisplayName"));
CloseKey;
end;
end;
end;


---

clickmaker   (2003-11-12 18:07:00) [1]

MyRegistry:=TRegistry.Create(KEY_READ)

---

Наверх