URGENTE !!! O QUE HA DE ERRADO NESSE CODIGO ??????
14/03/2003
0
Caros amigos,
Estou precisando de ajuda para descobrir onde esta o erro nesse codigo ...
A finalidade ele é ler a chave LANMAN no registro do windows.
Obrigado desde já...
var
reg: TRegistry;
KeyList: TStringList;
i: Integer;
begin
Reg := CreateTRegistry;
try
KeyList := TStringList.create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly(´\´);
Reg.GetKeyNames(KeyList);
reg.Closekey;
for i := 0 to KeyList.Count - 1 do
begin
if Copy(KeyList[i], 1, 1) = ´.´ then
begin
reg.OpenKeyReadOnly(KeyList[i]);
if Reg.ValueExists(´LANMAN´) then
begin
FFileExt.Values[KeyList[i]] := Reg.ReadString(´LANMAN´);
{ AQUI É UM TTEXTLISTBOX }
texto.Items.AddStrings(ffileext);
end;
reg.CloseKey;
end;
end;
Reg.OpenKeyreadOnly(´\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\NETWORK\LANMAN´);
KeyList.Clear;
Reg.GetKeyNames(KeyList);
reg.Closekey;
for i := 0 to KeyList.Count - 1 do
begin
Reg.OpenKeyreadOnly(´\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\NETWORK\LANMAN´ + KeyList[i]);
FMIMEList.Values[reg.ReadString(´Path´)] := KeyList[i];
Reg.CloseKey;
end;
finally
KeyList.Free;
end;
finally
reg.free;
end;
Estou precisando de ajuda para descobrir onde esta o erro nesse codigo ...
A finalidade ele é ler a chave LANMAN no registro do windows.
Obrigado desde já...
var
reg: TRegistry;
KeyList: TStringList;
i: Integer;
begin
Reg := CreateTRegistry;
try
KeyList := TStringList.create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly(´\´);
Reg.GetKeyNames(KeyList);
reg.Closekey;
for i := 0 to KeyList.Count - 1 do
begin
if Copy(KeyList[i], 1, 1) = ´.´ then
begin
reg.OpenKeyReadOnly(KeyList[i]);
if Reg.ValueExists(´LANMAN´) then
begin
FFileExt.Values[KeyList[i]] := Reg.ReadString(´LANMAN´);
{ AQUI É UM TTEXTLISTBOX }
texto.Items.AddStrings(ffileext);
end;
reg.CloseKey;
end;
end;
Reg.OpenKeyreadOnly(´\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\NETWORK\LANMAN´);
KeyList.Clear;
Reg.GetKeyNames(KeyList);
reg.Closekey;
for i := 0 to KeyList.Count - 1 do
begin
Reg.OpenKeyreadOnly(´\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\NETWORK\LANMAN´ + KeyList[i]);
FMIMEList.Values[reg.ReadString(´Path´)] := KeyList[i];
Reg.CloseKey;
end;
finally
KeyList.Free;
end;
finally
reg.free;
end;
Frampton
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)