program Logon2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.Windows;

var
UserN : PChar;
password : PChar;
si : TStartupInfo;
pi : TProcessInformation;
function  CreateProcessWithLogonW(
   lpUsername: LPCWSTR;                 // имя пользователя
   lpDomain : PChar;                   // домен пользователя
   lpPassword : LPCWSTR;                 // пароль пользователя
   dwLogonFlags : DWORD;                 // опция входа в сеть
   lpApplicationName : LPCWSTR;          // имя исполняемого модуля
   lpCommandLine : LPCWSTR;              // командная строка
   dwCreationFlagsv : DWORD;               // флажки создания
   lpEnvironment: Pointer;               // блок новой конфигурации
   lpCurrentDirectory: LPCWSTR;         // имя текущей папки
   lpStartupInfo : PStartupInfo;       // информация предустановки
   lpProcessInfo : PPROCESSINFORMATION // информация о процессе
):Boolean; stdcall; external advapi32;


begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
         UserN:= Pchar('Test');
         password:= Pchar('test');
         ZeroMemory(@si,SizeOf(si));
         si.cb:= SizeOf(si);
         si.lpDesktop:=PChar('winsta0\\Defailt');
         si.dwFlags:= STARTF_USESHOWWINDOW;
         si.wShowWindow:= SW_SHOW;
         ZeroMemory(@Pi,SizeOf(pi));
          if CreateProcessWithLogonW(
            UserN,
            PChar('WORKGROUP'),
            password,
            1,
            PChar('C:\Windows\SysWOW64\calc.exe'),
            nil,
            0,
            nil,
            nil,
            @si,
            @pi
          ) then Writeln('Приложение запущено!') else
          Writeln(IntToStr(GetLastError)+': '+SysErrorMessage(GetLastError));
        CloseHandle(pi.hProcess);
        CloseHandle(pi.hThread);
  except
  on E: Exception do
    Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.