Forum: Sonstige Fragen zu Delphi
Delphi
by hitzi,
23. Feb 2007
type TComPort = record
Name : string;
Details : string;
end;
fComport : array of TComPort;
Forum: Sonstige Fragen zu Delphi
Delphi
by hitzi,
23. Feb 2007
Sorry hatte die falsche Funktion erwischt, da fehlte noch einiges ...
sl := TStringlist.Create;
try
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('hardware\devicemap\serialcomm');
reg.GetValueNames(sl);
SetLength(fComPort, Length(sl));
Forum: Sonstige Fragen zu Delphi
Delphi
by hitzi,
23. Feb 2007
sl := TStringlist.Create;
try
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('hardware\devicemap\serialcomm');
reg.GetValueNames(sl);
reg.CloseKey;
finally
FreeAndNil(reg);