Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

запустить программу от имени другого пользователя [NT4, Win2k, WinXP]

_landy © (2002-10-25 14:25:00)
Какой функцией пользуется runas.exe для запуска программы от имени другого пользователя. Или хотя бы как этому самому runas.exe передать пароль, чтоб задача отработала и завершилась самостоятельно?

_landy (2002-10-30 09:37:00) [1]
Вот еще вариант:
function GetUserName: string;
var
N: Cardinal;
Buf: array[0..1023] of AnsiChar;
begin
N:=SizeOf(Buf)-1;
Windows.GetUserName(Buf, N);
Result:=PChar(@Buf[0]);
end;

_landy (2002-10-28 08:29:00) [2]
Вдогонку - подробности, например, здесь: http://www.delphi.xonix.ru/subscribe/?id=1

_landy (2002-10-28 08:27:00) [3]
Действительно. :))

procedure GetUserInfo(Server,User: String);
var
UserInfo : ^USER_INFO_2;
lpwUser : PWideChar;
lpwSrv : PWideChar;
begin
lpwSrv := Str2Wide(Server);
lpwUser := Str2Wide(User);

NetUserGetInfo(lpwSrv,lpwUser,2,Pointer(UserInfo));
// Куда - то выводим информацию
// При желании изменяем и сохраняем новую инфу
NetUserSetInfo(nil,lpwUser,2,UserInfo,nil);

NetApiBufferFree(UserInfo);
end;

ZZ (2002-10-27 16:07:00) [4]
Alexander
К созажению это невозможно сделать... пока не научишся искать :))

Alexander (2002-10-27 15:24:00) [5]
А как из запущенной программы можно выяснить имя пользователя, её запустившего?

_landy (2002-10-27 12:38:00) [6]
Thx. Именно то, что нужно.

Ученик (2002-10-25 16:14:00) [7]
Развитие ZZ © (25.10.02 16:07)

function CreateProcessWithLogonW(
lpUsername : PWChar;
lpDomain : PWChar;
lpPassword : PWChar;
dwLogonFlags : DWord;
lpApplicationName : PWChar;
lpCommandLine : PWChar;
dwCreationFlags : DWord;
lpEnvironment : Pointer;
lpCurrentDirectory : PWChar;
var lpStartupInfo : TStartupInfo;
var lpProcessInfo : TProcessInformation
) : Bool; stdcall; external "AdvApi32.dll";

procedure TForm1.Button5Click(Sender: TObject);
var
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), 0);
StartupInfo.cb := SizeOf(StartupInfo);
if CreateProcessWithLogonW("UserName", "DomainName", "Password",
0, "notepad.exe", "", CREATE_DEFAULT_ERROR_MODE, nil, nil,
StartupInfo, ProcessInfo) then begin
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread)
end else
Win32Check(False)
end;

ZZ (2002-10-25 16:07:00) [8]
Какой функцией пользуется runas.exe для запуска программы от имени другого пользователя
CreateProcessWithLogonW

Игорь Шевченко (2002-10-25 15:35:00) [9]
CreateProcessAsUser

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »