function mywin_set_privilege(const sPrivilege: string; const bEnabled: boolean): boolean;
var
  hToken: THandle;
  TokenPriv: TOKEN_PRIVILEGES;
  PrevTokenPriv: TOKEN_PRIVILEGES;
  ReturnLength: Cardinal;
begin
  Result := true;
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
  begin
    if LookupPrivilegeValue(nil, PChar(sPrivilege), TokenPriv.Privileges[0].Luid) then
    begin
      TokenPriv.PrivilegeCount := 1;
      case bEnabled of
        true:
          TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        false:
          TokenPriv.Privileges[0].Attributes := 0;
      end;
      ReturnLength := 0;
      PrevTokenPriv := TokenPriv;
      if not AdjustTokenPrivileges(hToken, false, TokenPriv, SizeOf(PrevTokenPriv), PrevTokenPriv, ReturnLength) then
        Result := false;
    end
    else
      Result := false;
    CloseHandle(hToken);
  end
  else
    Result := false;
end;


function mywin_get_pidpath(const pid: Cardinal; const name: String): String;
var
  b: boolean;
  HM: THandle;
  me: TModuleEntry32;
begin
  Result := '';
  HM := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pid);
  if HM <> INVALID_HANDLE_VALUE then
  begin
    me.dwSize := SizeOf(me);
    b := Module32First(HM, me);
    while b do
    begin
      if FileExists(me.szExePath) and (AnsiLowerCase(me.szModule) = AnsiLowerCase(name)) then
        if (AnsiLowerCase(ExtractFileExt(me.szModule)) = '.exe') and (AnsiPos(':', me.szExePath) > 0) then
        begin
          if AnsiLowerCase(ExtractFileName(me.szExePath)) = AnsiLowerCase(name) then
          begin
            Result := me.szExePath;
            break;
          end;
        end;
      b := Module32Next(HM, me);
    end;
    CloseHandle(HM);
  end;
  if Result = '' then
    Result := name;
end;