Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

В 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
4-93741
Igit
2003-11-22 13:58
2004.01.29
как IPicture сохранить в файл (BMP)?


6-93612
DAnton
2003-11-24 10:34
2004.01.29
<b>Помогите кто чем может с <u>аттачем</u>.</b>


1-93490
YuRock
2004-01-15 14:18
2004.01.29
Работа с потоками в Delphi с использованием VCL


1-93491
Shc
2004-01-12 18:47
2004.01.29
Поиск по XML схеме


7-93706
Talla2k
2003-11-12 01:01
2004.01.29
Com port