probier mal tregistry in der
Unit registry.
Zitat von
Borland Delphi Hilfe:
Das folgende Beispiel liest den Wert eines Registrierungseintrags:
Delphi-Quellcode:
function GetRegistryValue(KeyName: string): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey = HKEY_LOCAL_MACHINE;
// false, weil kein Eintrag erzeugt werden soll, sofern er nicht vorhanden ist.
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString('VALUE1');
finally
Registry.Free;
end;
end;
das kannst du ja nach deinen eigenen Bedürfnissen umformen.
Delphi-Quellcode:
procedure savedirname(dirname:string);
var
r:tregistry;
begin
r:=tregistry.create(HKEY_CURRENT_USER);
r.openkey('Software\hersteller\progname\',true);
r.writestring('dirname',dirname);
r.free;
end;
function getdirname:string;
var
r:tregistry;
begin
r:=tregistry.create(HKEY_CURRENT_USER);
r.openkey('Software\hersteller\progname\',true);
result:=r.readstring('dirname');
r.free;
end;
(jetzt gerade getestet, write geht noch nicht
)
sorry für das von vorhin, treginifile is was anderes (was genau
)