Ok, das weiter suchen und probieren hat sich gelohnt:
Delphi holt anscheinend nicht - wie in der Hilfe eigentlich beschrieben - die Rechte. Daher muss man das selbst tun.
Es funktioniert z.B. mit folgender Funktion, die ich
hier gefunden habe:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
| function SetPrivilege(Privilege: PChar; EnablePrivilege: Boolean;
out PreviousState: Boolean): DWORD;
var
Token: THandle;
NewState: TTokenPrivileges;
Luid: TLargeInteger;
PrevState: TTokenPrivileges;
Return: DWORD;
begin
PreviousState := True;
if (GetVersion() > $80000000) then
Result := ERROR_SUCCESS
else
begin
if not OpenProcessToken(GetCurrentProcess(), MAXIMUM_ALLOWED, Token) then
Result := GetLastError()
else
try
if not LookupPrivilegeValue(nil, Privilege, Luid) then
Result := GetLastError()
else
begin
NewState.PrivilegeCount := 1;
NewState.Privileges[0].Luid := Luid;
if EnablePrivilege then
NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
NewState.Privileges[0].Attributes := 0;
if not AdjustTokenPrivileges(Token, False, NewState,
SizeOf(TTokenPrivileges), PrevState, Return) then
Result := GetLastError()
else
begin
Result := ERROR_SUCCESS;
PreviousState :=
(PrevState.Privileges[0].Attributes and SE_PRIVILEGE_ENABLED <> 0);
end;
end;
finally
CloseHandle(Token);
end;
end;
end; |
Danach kann man dann entweder gleich mit API-Funktionen weitermachen, wie unter dem angegebenen Link beschrieben, oder... oder man verwendet dann die Delphi-Funktion, also etwa so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| SetPrivilege('SeBackupPrivilege', True, done);
Reg := TRegistry.Create;
try
Reg.RootKey := HKCU;
if Reg.SaveKey(key, dir + name);
finally
Reg.Free;
end;
|
!!!
