![]() |
|
#1
|
|||
|
|||
![]() доброго время суток. помогите решить проблему нужно выполнить runas /user:domen\name "net session /delete /y"
делаю это вот так Код:
ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'runas /user:elbor\tehspec "net session /delete /y"', nil, SW_show); |
#2
|
||||
|
||||
![]() Специфика программы такая:
Цитата:
Эта хреновина запускает приложение через CreateProcessWithLogonW, можно свою утилитку сделать. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 12.07.2012 в 10:39. |
#3
|
|||
|
|||
![]() сделал
Код:
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'; Код:
CreateProcessWithLogonW('tehspec', 'elbor', 'пас', 0, nil, PWideChar(CreateProcess(nil, 'cmd.exe /c net session /delete /y', nil, nil, False, 0, nil, nil, startupinfo, processinformation)) ,0, nil, nil, si, pif) ; Код:
CreateProcessWithLogonW('tehspec', 'elbor', 'пас', 0, nil, 'notepad',0, nil, nil, si, pif) ; Последний раз редактировалось lestatgi, 13.07.2012 в 09:53. |