Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
AW: Registry bei Windows 7 32bit mit Delphi 2009 auslesen
15. Sep 2011, 12:50
Delphi-Quellcode:
procedure foo;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey(' hardware\devicemap\serialcomm', False) then
begin
// ...;
// ...;
reg.CloseKey
end
else
RaiseLastOSError;
finally
reg.Free;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
try
foo;
except
on e: Exception do
ShowMessage(e. Message);
end;
end;
Michael Ein Teil meines Codes würde euch verunsichern.
|