Форум: "Система";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];

Вниз

В windows 98 работает а с win2k нет   Найти похожие ветки 

← →
otar   (2003-11-12 17:57) [0]

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) [1]

MyRegistry:=TRegistry.Create(KEY_READ)

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c