Kod: Tümünü seç
uses JwaWinBase;
procedure RunAs;
var
si: STARTUPINFOW;
pif: PROCESS_INFORMATION;
res: Bool;
s: string;
a:PWChar;
Kul,Pas:Array [1..50] of WideChar;
begin
si.cb := SizeOf(startupinfow);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_SHOWDEFAULT;
si.lpReserved := nil;
si.lpDesktop := nil;
si.lpTitle := 'Konsole';
res := CreateProcessWithLogonW(StringToWideChar(kullanici,@Kul,50), '', StringToWideChar(sifre,@Pas,50), LOGON_WITH_PROFILE,
'Calistirilacak.exe', nil
, CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
if booltostr(res) = '0' then
begin
str(GetLastError, s);
Application.MessageBox('Kullanıcı yada Şifresi Hatalı','LOGIN ERROR',mb_ok+MB_ICONERROR);
end;
end;
