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

Вниз

НУ ОЧЕНЬ СРОЧНО!!!!!!!   Найти похожие ветки 

← →
55   (2002-02-28 07:44) [2]

Для D5.

program Project1;
uses Registry,windows,classes;
var
Reg1: TRegIniFile;
ST :TStringList;
begin
st:=TStringList.Create;st.Clear;
Reg1 := TRegIniFile.create;
try with Reg1 do
begin
reg1.ROOTKEY:=HKEY_LOCAL_MACHINE;
reg1.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Uninstall",false);
reg1.ReadSections(st);
st.SaveToFile("Uninst.txt");
end;
finally
reg1.free;
end;
messageBox(0,"Все!","Reg",$40);
end.

---

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

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

Наверх

Память: 0.43 MB
Время: 0.004 c