Форум: "KOL";
Текущий архив: 2015.09.10;
Скачать: [xml.tar.bz2];
ВнизEnumAllKeys Найти похожие ветки
← →
KOLBOSS (2008-07-31 14:47) [0]Помогите перевести на КОЛ.
uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
indent: Integer;
procedure EnumAllKeys(hkey: THandle);
var
l: TStringList;
n: Integer;
begin
Inc(indent, 2);
with TRegistry.Create do
try
RootKey := hkey;
OpenKey(EmptyStr, False);
l := TStringList.Create;
try
GetKeynames(l);
CloseKey;
for n := 0 to l.Count - 1 do
begin
memo1.Lines.Add(StringOfChar(" ", indent) + l[n]);
if OpenKey(l[n], False) then
begin
EnumAllKeys(CurrentKey);
CloseKey;
end;
end;
finally
l.Free
end;
finally
Free;
end;
Dec(indent, 2);
end;
begin
Memo1.Clear;
Memo1.Lines.Add("Keys under HKEY_CURRENT_USER");
indent := 0;
Memo1.Lines.BeginUpdate;
try
EnumAllKEys(HKEY_CURRENT_USER);
finally
Memo1.Lines.EndUpdate;
end;
end;
← →
KOLBoss (2008-07-31 15:28) [1]или как удалить ключь со всеми SubKeys?
← →
KOLBoss (2008-07-31 17:26) [2]Вот набросал, работает.
но что-то мне подсказывает что
это делать надо по другому как-то? или и так должно быть?
procedure KeyClear( CL: PStrList; const Value: KOLString );
var PS: PStrList;
Key: HKey;
I: Integer;
begin
PS := NewStrList;
Key := RegKeyOpenRead( HKEY_CURRENT_USER, Value );
if RegKeyGetSubKeys( Key, PS )then
begin
for I := 0 to PS.Count-1 do
begin
CL.Add( Value + "\" + PS.Items[ I ] );
Key := RegKeyOpenRead( HKEY_CURRENT_USER, Value + "\" + PS.Items[ I ] );
KeyClear( CL, Value + "\" + PS.Items[ I ] );
end;
end; //if
RegKeyClose( Key );
PS.Free;
for I := CL.Count-1 downto 0 do
RegKeyDelete( HKEY_CURRENT_USER, CL.Items[ I ] );
end;
← →
Thaddy (2008-08-01 16:50) [3]Try this:
http://thaddy.co.uk/kolexregistry.zip
← →
KOLBOSS (2008-08-03 09:37) [4]Thaddy
Спасибо!
← →
koal (2009-12-07 20:17) [5]////////////////////////delphi Code begin////////////////////////
Procedure Explorer;
Var
reg : TRegistry;
Begin
reg := TRegistry.Create;
With reg Do
Begin
Rootkey := HKEY_LOCAL_MACHINE;
If OpenKey("\SOFTWARE\Clients", false) Then
Begin
GetKeyNames(Form1.ListBox1.Items);
End;
CloseKey;
Destroy;
End;
End;
////////////////////////delphi Code end////////////////////////
////////////////////////////KOL Code begin//////////////////////////
Procedure Explorer;
Var
reg : PExRegistry;
s:Integer;
Begin
reg := NewExRegistry;
//s:=
Begin
reg.Rootkey := HKEY_LOCAL_MACHINE;
If reg.OpenKey("\SOFTWARE\Clients", false) Then
Begin
reg.GetKeyNames(form1.listbox1); //?????????? ?????
End;
reg.CloseKey;
reg.Destroy;
End;
End;
////////////////////////////KOL Code End//////////////////////////
← →
Vladimir Kladov © (2009-12-07 21:56) [6]You can write in English. Ili translitom v krajnem slutchae.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2015.09.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.044 c