запуск от имени администратора зная логин и пароль

[AppData]

как осуществить все это?!
чтобы стартовала программа сразу же от админа. зная логин и пароль?!

[eval]

runas + help

[Человек_Борща]

Используйте функции: CreateProcessWithLogon, CreateProcessAsUser

[AppData]

пример не помешал бы

procedure tform1.button1click(sender: tobject);
var a:string;
begin
a:=runas('login', 'password', 'c:\file.exe');
if a<>'success' then showmessage(a);
end;

бред. мне нужно сразу же при запуске чтобы он запускал

unit main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TfMain = class(TForm)
   Button: TButton;
   procedure ButtonClick(Sender: TObject);
 end;

var
 fMain: TfMain;

implementation
uses
 HSAdvApi;

{$R *.dfm}

procedure TfMain.ButtonClick(Sender: TObject);
begin
 MyCreateProcess();
end;

procedure TfMain.MyCreateProcess;
const
 UserName : WideString = "TESTUSER";
 Password : WideString = "testuser";
 ConstCommandLine : String = "CMD.EXE";
 Title : WideString = "Test process";
 Domain : WideString = "WORKGROUP";
var
 MyStartupInfo : STARTUPINFO;
 ProcessInfo : PROCESS_INFORMATION;
 CommandLine : array[0..512] of WideChar;
begin
 FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
 MyStartupInfo.cb := SizeOf(MyStartupInfo);
 StringToWideChar(ConstCommandLine, CommandLine,
    Sizeof(CommandLine) div SizeOf(WideChar));
 MyStartupInfo.lpTitle := PWideChar(Title);
 if not CreateProcessWithLogonW (PWideChar(UserName), PWideChar(Domain),
     PWideChar(Password), LOGON_WITH_PROFILE, nil,
     CommandLine, 0, nil, nil, @MyStartupInfo, @ProcessInfo) then
   RaiseLastWin32Error()
 else begin
   CloseHandle(ProcessInfo.hProcess);
   CloseHandle(ProcessInfo.hThread);
 end;
end;

end.


unit HSAdvApi;

interface
uses
 Windows;

function CreateProcessWithLogonW (const lpUsername : PWideChar;
 const lpDomain : PWideChar; const lpPassword : PWideChar;
 dwLogonFlags : DWORD; const lpApplicationName : PWideChar;
 lpCommandLine : PWideChar; dwCreationFlags : DWORD;
 lpEnvironment : Pointer; const lpCurrentDirectory : PWideChar;
 lpStartupInfo : PStartupInfo;
 lpProcessInfo : PProcessInformation) : Boolean; stdcall;

const
 LOGON_WITH_PROFILE = $00000001;
 LOGON_NETCREDENTIALS_ONLY = $00000002;
 LOGON_ZERO_PASSWORD_BUFFER = $80000000;

implementation
uses
 SysUtils;

{ ADVAPI32.DLL functions }
type
 TCreateProcessWithLogonW =
   function (const lpUsername : PWideChar;
 const lpDomain : PWideChar; const lpPassword : PWideChar;
 dwLogonFlags : DWORD; const lpApplicationName : PWideChar;
 lpCommandLine : PWideChar; dwCreationFlags : DWORD;
 lpEnvironment : Pointer; const lpCurrentDirectory : PWideChar;
 lpStartupInfo : PStartupInfo;
 lpProcessInfo : PProcessInformation) : Boolean; stdcall;

const
 DllName = "advapi32.dll";

var
 DllHandle : THandle;
 _CreateProcessWithLogonW : TCreateProcessWithLogonW;

function InitLib : Boolean;
begin
 if DllHandle = 0 then
   if Win32Platform = VER_PLATFORM_WIN32_NT then begin
     DllHandle := LoadLibrary(DllName);
     if DllHandle <> 0 then begin
       @_CreateProcessWithLogonW := GetProcAddress(DllHandle,
         "CreateProcessWithLogonW");
     end;
   end;
 Result := (DllHandle <> 0);
end;

function NotImplementedBool : Boolean;
begin
 SetLastError (ERROR_CALL_NOT_IMPLEMENTED);
 Result := false;
end;

function CreateProcessWithLogonW (const lpUsername : PWideChar;
 const lpDomain : PWideChar; const lpPassword : PWideChar;
 dwLogonFlags : DWORD; const lpApplicationName : PWideChar;
 lpCommandLine : PWideChar; dwCreationFlags : DWORD;
 lpEnvironment : Pointer; const lpCurrentDirectory : PWideChar;
 lpStartupInfo : PStartupInfo;
 lpProcessInfo : PProcessInformation) : Boolean; stdcall;
begin
 if InitLib and Assigned(_CreateProcessWithLogonW) then
   Result := _CreateProcessWithLogonW(lpUsername, lpDomain, lpPassword,
     dwLogonFlags, lpApplicationName, lpCommandLine, dwCreationFlags,
     lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInfo)
 else
   Result := NotImplementedBool;
end;

initialization
finalization
 if DllHandle <> 0 then
   FreeLibrary(DllHandle);
end.

что вводить в

UserName : WideString = 'TESTUSER';
Password : WideString = 'testuser';
ConstCommandLine : String = 'CMD.EXE';
Title : WideString = 'Test process';
Domain : WideString = 'WORKGROUP';

чтобы запустилась сразу моя программа под админом!

[Serge_Bliznykov]

дык, Вы уже почти всё сами нашли!

function CreateProcessWithLogonW (const lpUsername : PWideChar;
 const lpDomain : PWideChar; const lpPassword : PWideChar;
 dwLogonFlags

lpUsername - имя пользователя
lpDomain - имя домена
lpPassword - пароль пользователя
dwLogonFlags - флаги (например, LOGON_WITH_PROFILE )
lpCommandLine - командная строка для запуска


я когда-то игрался.

взял вот такой код:

function NewStartInteractiveClientProcess(Username, Domain,
   Password, CommandLine: WideString): Boolean;
var
   pi: PROCESS_INFORMATION;
   si: STARTUPINFOW;
   wUSerName,
   wDomain,
   wPassword, wCommandLine : PWideChar;
begin
   Result:= False;
   wUsername := PWideChar(Username);
   wDomain := PWideChar(Domain);
   wPassword := PWideChar(Password);
   wCommandLine := PWideChar(CommandLine);
   try
     ZeroMemory(@si, SizeOf(si));
     si.cb:= SizeOf(si);
     si.lpDesktop:= nil; // для CreateProcessWithLogonW

     Result := CreateProcessWithLogonW(wUsername, wDomain,
       wPassword, LOGON_WITH_PROFILE,
       wCommandLine, nil, 0, nil, nil, si, pi);




   finally
   end;
end;

и вызываю его так(консольное приложение):

if Not NewStartInteractiveClientProcess(
        'Adminko','Domen','PaSsW0rD', 'notepad.exe') then WriteLn('Load Error');

[AppData]

это я знаю. у меня вопрос не как запустить Другую программу с помощью прав админа а свою. сразу же. при старте автозапуска.

[Аватар]

Можно в планировщике настроить запуск проги при запуске винды и соответствующие права задать

[AppData]

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

[eval]

Создаете батник и в нем пишите runas ...запускаете не ехе а батник
Можно еще и манифест расписать, но тогда надо и система соответствующая. чтобы не ниже висты и уак врублен.
вот тут еще какойто способ есть http://www.exampledb.com/run-delphi-...or-windows.htm

А ваще зачем вам права админа на всю прогу? может можно обойтись малым потоком?

[AppData]

чтобы сделать изменение в рестре нужны права админа.