azygole
شنبه 19 اسفند 1385, 21:00 عصر
با سلام و خسته نباشید
من با استفاده از رجیستری می تونم نام کامپیوتر را استخراج کنم ، اما نمی دونم چرا نمی تونم اطلاعات یک مسیر خاص ( بعد از نصب یک برنامه که در رجیستری مسیر را ایجاد می کند )رو دربیارم در حالی که وجود دارد . آیا می تونین به من کمک کنین ؟
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
s1, s2 : string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Enum\FTDIBU S\VID_0403+PID_6006+5&7a2ef8f&0&2\0000', False) then
s1:=Reg.ReadString('FriendlyName');
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Com puterName\ActiveComputerName', False) then
s2:=Reg.ReadString('ComputerName');
finally
Reg.CloseKey;
Reg.Free;
end;
Edit1.Text:=s1;
Edit2.Text:=s2;
end;
:لبخندساده:
من با استفاده از رجیستری می تونم نام کامپیوتر را استخراج کنم ، اما نمی دونم چرا نمی تونم اطلاعات یک مسیر خاص ( بعد از نصب یک برنامه که در رجیستری مسیر را ایجاد می کند )رو دربیارم در حالی که وجود دارد . آیا می تونین به من کمک کنین ؟
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
s1, s2 : string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Enum\FTDIBU S\VID_0403+PID_6006+5&7a2ef8f&0&2\0000', False) then
s1:=Reg.ReadString('FriendlyName');
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Com puterName\ActiveComputerName', False) then
s2:=Reg.ReadString('ComputerName');
finally
Reg.CloseKey;
Reg.Free;
end;
Edit1.Text:=s1;
Edit2.Text:=s2;
end;
:لبخندساده: