Ich würde das ganz so realisieren:
Delphi-Quellcode:
unit AdvoPlex_Object;
interface
uses
Windows,
Classes,
SysUtils,
Registry;
const
ADVOPATH = '
Software\AdvoSolutions\AdvoPlex';
type
TAdvoPlex =
class(TObject)
private
FUserSU:
string;
function CurrentUser:
string;
function GetUserSU:
string;
procedure SetUserSU(Value:
string);
procedure SaveUserSU;
procedure LoadUserSU;
public
constructor Create;
destructor Destroy;
override;
published
property UserSU:
string read GetUserSu
write SetUserSU;
end;
implementation
constructor TAdvoPlex.Create;
var
reg: TRegistry;
begin
inherited Create;
reg := TRegistry.Create(KEY_ALL_ACCESS);
reg.RootKey := HKEY_CURRENT_USER;
end;
destructor TAdvoPlex.Destroy;
begin
FreeAndNil(reg);
inherited Destroy;
end;
function TAdvoPlex.GetUserSU:
string;
begin
LoadUserSU;
Result := FUserSU;
end;
procedure TAdvoPlex.LoadUserSU;
begin
if reg.OpenKeyReadOnly(ADVOPATH)
then
begin
FUserSU := reg.ReadString('
User');
reg.CloseKey;
end
else
raise Exception.CreateFmt('
%s'+#13#10+'
%s', ['
Fehler beim Lesen von UserSU', SysErrorMessage(GetLastError)]);
end;
procedure TAdvoPlex.SaveUserSU;
begin
if reg.OpenKey(ADVOPATH, True)
then
begin
reg.WriteString('
User', FUserSU);
reg.CloseKey;
end
else
raise Exception.CreateFmt('
%s'+#13#10+'
%s', ['
Fehler beim Schreiben von UserSU', SysErrorMessage(GetLastError)]);
end;
procedure TAdvoPlex.SetUserSU(Value:
string);
begin
FUserSU := Value;
SaveUserSU;
end;
function TAdvoPlex.CurrentUser:
string;
var
Buffer :
array[0..MAX_PATH]
of Char;
Size : DWORD;
begin
Size := SizeOf(Buffer);
GetUserName(Buffer, Size);
SetString(Result, Buffer, lstrlen(Buffer));
end;
end.
Dadurch ersparst Du Dir zumindest das ständige Anlegen und Löschen der Registry-Instanzen.
Edit: Warum rufst Du LoadUserSU und SaveUserSU von Hand und nicht in SetUserSU und GetUserSU auf?