Uses ..., ShellAPI;
...
ShellExecute(0, 'open', 'runas', '/u:Администратор Ваша_программа', NIL, SW_SHOW);
function CreateProcessWithLogonW(lpUsername, lpDomain, lpPassword: PWideChar;
dwLogonFlags: DWORD; lpApplicationName: PWideChar; lpCommandLine: PWideChar;
dwCreationFlags: DWORD; lpEnvironment: LPVOID; lpCurrentDirectory: PWideChar;
const lpStartupInfo: STARTUPINFOW; var lpProcessInformation: PROCESS_INFORMATION): BOOL; stdcall; external 'advapi32.dll' name 'CreateProcessWithLogonW';
function RunMyProg(myprog: PWideChar): boolean;
Var
si: TSTARTUPINFO;
pif: PROCESS_INFORMATION;
Begin
si.cb := SizeOf(tstartupinfo);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_SHOWDEFAULT;
si.lpReserved := nil;
si.lpDesktop := nil;
si.lpTitle := nil;
result:=CreateProcessWithLogonW('Администратор', nil, 'Пароль_Администратора', 0, nil, myprog, 0, nil, nil, si, pif);
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.