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

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

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

Не работает CreateteProcessAsUser.... [D6, WinXP]

Yuri Btr © (2002-08-20 17:50:00)
Ув. мастера, помогите разобраться, есть такая процедура:

var
startup:_STARTUPINFOA;
user:cardinal;
path:string;
begin
if LogonUser(Pchar("username"),nil,Pchar("password"), LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, user)=false
then
Exit;
Path:="C:\Windows\System32";
ZeroMemory(@startup,sizeof(startup));
startup.cb:=SizeOf(startup);
if not CreateProcessAsUser(user,Pchar(path+"\mmc.exe"),Pchar(path+"\compmgmt.msc"), nil, nil, false, CREATE_DEFAULT_ERROR_MODE, nil, nil, startup, nil)
then
exit;
end;

При компиляции ругается на CreateProcessAsUser пишет что
"Types of actual and formal var parameters must be identical"
но я проверил все переменные, все форматы совпадают... где загвоздка???

Заранее спасибо.

Игорь Шевченко (2002-08-21 11:56:00) [1]
Под прототипом я понимаю объявление этой функции в windows.pas

function CreateProcessAsUserA(hToken: THandle; lpApplicationName: PAnsiChar;
lpCommandLine: PAnsiChar; lpProcessAttributes: PSecurityAttributes;
lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PAnsiChar;
const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;

Yuri Btr (2002-08-21 09:45:00) [2]
to Игорь Шевченко ©
Простите, что вы подразумеваете под словом прототип CreateProcessAsUser???

to Ученик ©
Спасибо вам огромное, что то я сразу несообразил про CreateProcessWithLogonW.

Спасибо всем надо помучать lpProcessInformation - наверно в нем загвоздка..

Ученик (2002-08-20 18:47:00) [3]
С CreateProcessAsUser будет много проблем, поэтому лучше использовать:

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;

Игорь Шевченко (2002-08-20 18:27:00) [4]
И впрямь, нельзя

ZZ (2002-08-20 18:23:00) [5]
чего то я сомневаюсь, что последним параметром можно передать nil

Игорь Шевченко (2002-08-20 18:10:00) [6]
Приведи прототип CreateProcessAsUser

Наверх

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