Форум: "WinAPI";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Вниз

МАСТЕРА, плз, помогите разобраться с CreateProcessWithLogonW!   Найти похожие ветки 

← →
Hair_Fly   (2001-12-17 13:38) [0]

МАСТЕРА, плз, помогите разобраться с CreateProcessWithLogonW!
Я делаю следующее:

interface

function CreateProcessWithLogon
(
lpUsername, // user"s name
lpDomain, // user"s domain
lpPassword: PWideChar; // user"s password
dwLogonFlags: DWORD; // logon option
lpApplicationName: PWideChar; // executable module name
var lpCommandLine: PWideChar; // command-line string
dwCreationFlags: DWORD; // creation flags
lpEnvironment: Pointer; // new environment block
lpCurrentDirectory: PWideChar; // current directory name
const lpStartupInfo: TStartupInfo; // startup information
var lpProcessInformation: TProcessInformation //process inf
): Bool; stdcall;

implementation

function CreateProcessWithLogon; external advapi32 name "CreateProcessWithLogonW";


procedure TForm1.Button1Click(Sender: TObject);
var
UserName,UserDomain,Password,CommandLine:string;
begin
UserName:="Administrator";
UserDomain:=".";
Password:="";
CommandLine:="c:\Winnt\Notepad.exe";

if not
CreateProcessWithLogon(PWideChar(UserName),
PWideChar(UserDomain),PWideChar(Password),
LOGON32_LOGON_INTERACTIVE,nil,
PWideChar(CommandLine),
CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP,
nil,nil,StartUpInfo,ProcInfo) then
begin
ShowMessage(SysErrorMessage(GetLastError));
end;
end;


В итоге получаю: "The system cannot find the file specified".
Блокнот соответственно не запускается :( А очень надо.
Подскажите, пожалуйста, где ошибка. Очень нужно запустить прогу с правами администратора! ПЛИИИИЗЗЗЗЗЗ!!!!!

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c