[Bug 13001] LookupPrivilegeValue

http://bugs.winehq.org/show_bug.cgi?id=13001

--- Comment #4 from Austin English   2008-05-05 20:44:58 ---
(In reply to comment #3)
> Here is example portion of code, utilizes that WinApi function:
> procedure EnableDebugPrivileges;
> var
>  hToken: THandle;
>  tp: TTokenPrivileges;
>  DebugNameValue: Int64;
>  ret: Cardinal;
> begin
>  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
> hToken);
>  LookupPrivilegeValue(nil, 'SeDebugPrivilege', DebugNameValue);
>  tp.PrivilegeCount:=1;
>  tp.Privileges[0].Luid:=DebugNameValue;
>  tp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
>  AdjustTokenPrivileges(hToken, False, tp, sizeof(tp), nil, ret);
> end;

Any chance you can flesh that out into a small compiled program to test on
wine/windows? Or better yet, port it into a conformance test...