quote:


var
h: THandle;
pi : TProcessInformation;
si : TStartupInfo;
begin
LogonUser('Yarik',nil,'777',LOGON32_LOGON_INTERACTIVE,LOGON32_PROVIDER_DEFAULT,h);
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
si.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
si.wShowWindow := SW_NORMAL;
if not CreateProcessAsUser(h,nil,'calc',nil,nil,False,0,nil,nil,si,pi)
then begin
// RaiseLastWin32Error;
Exit;
end;
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
CloseHandle(h);
end;