Запуск от имени другого пользователя

function CreateProcessWithLogonW(User: PWideChar;
                                 Domain:PWideChar;
                                 Passw:PWideChar;
                                 Flags: DWORD;
                                 lpApplicationName: PWideChar;
                                 lpCommandLine: PWideChar;
                                 dwCreationFlags: DWORD;
                                 lpEnvironment: Pointer;
                                 lpCurrentDirectory: PWideChar;
                                 const lpStartupInfo: TStartupInfo;
                                 var lpProcessInformation: TProcessInformation): BOOL; stdcall; external 'advapi32.dll' name 'CreateProcessWithLogonW';

function CreateProcessAsLogon(User, Password, Domain, Prog: WideString): Cardinal;
var
  lpStartupInfo: TSTARTUPINFO;
  lpProcessInfo: TPROCESSINFORMATION;
begin
  ZeroMemory(@lpStartupInfo, SizeOf(lpStartupInfo));
  lpStartupInfo.cb := SizeOf(lpStartupInfo);
  lpStartupInfo.lpDesktop := nil;
  CreateProcessWithLogonW(PWideChar(User), PWideChar(Domain), PWideChar(Password), 0, nil, PWideChar(Prog), CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE, nil, nil, lpStartupInfo, lpProcessInfo);
  Result := lpProcessInfo.dwProcessId;
  CloseHandle(lpProcessInfo.hProcess);
end;

procedure Execute;
begin
  if GetSelectedItem <> -1 then
      CreateProcessAsLogon(Account, Password, Domain, StringToWideString(GetText(GetSelectedItem), 0));
end;