Запуск програм с правами администратора

[Harkalada]

Вопрос : Известен пароль админа ,нуно чтоб моя програма запускалась
из под юзера с правами админа то есть мне нужен пример исходного кода.

[Megabyte]

Вот пример на Дельфи:

Unit RunAsExt;

Interface

Uses Windows, SysUtils;

function CreateProcessWithLogonW(
 lpUserName: PWideChar;
 lpDomain: PWideChar;
 lpPassword: PWideChar;
 dwLogonFlags: DWORD;
 lpApplicationName: PWideChar;
 lpCommandLine: PWideChar;
 dwCreationFlags: DWORD;
 lpEnvironment: Pointer;
 lpCurrentDirectory: PChar;
 const lpStartupInfo: TStartupInfo;
 var lpProcessInformation: TProcessInformation
 ): BOOL; stdcall;

Function RunAs(Username, Password, Command: String): String;

Implementation

function CreateProcessWithLogonW; external advapi32 name 'CreateProcessWithLogonW';

Function RunAs(Username, Password, Command: String): String;
Var
 si: TStartupInfo;
 pi: TProcessInformation;
 pUser, pPass, pDomain, pProgram: array [0..255] of WChar;
 LastError: DWORD;
 ResultString: String;
Begin
 ZeroMemory(@si, SizeOf(si));
 si.cb:=SizeOf(si);
 ZeroMemory(@pi, SizeOf(pi));

 StringToWideChar(UserName, pUser, 255);
 StringToWideChar(PassWord, pPass, 255);
 StringToWideChar('', pDomain, 255);
 StringToWideChar(Command, pProgram, 255);
 CreateProcessWithLogonW(
   pUser,
   pDomain,
   pPass,
   1, //LOGON_WITH_PROFILE,
   pProgram,
   nil,
   CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
   CREATE_NEW_PROCESS_GROUP  or CREATE_SEPARATE_WOW_VDM,
   nil,
   nil,
   si,
   pi
  );
 LastError:=GetLastError;
Case LastError of
  0:    ResultString:='Success!';
  86:   ResultString:='Wrong password';
  1326: ResultString:='Wrong username or password';
  1327: ResultString:='Logon failureЧuser account restriction';
  1385: ResultString:='Logon failureЧthe user has not been granted the requested logon type at this computer.';
  2:    ResultString:='File not found';
  5:    ResultString:='Acced denied';
else
  ResultString:='Error '+IntToStr(LastError);
end;
Result:=ResultString;
End;

END.