Delphi vs. Win 2000

0

Mam kilka problemow dot. win 2000:

  1. Czy mozna w jakis sposob zapisac plik w katalogu windows:
    a) znajac haslo administratora?
    b) nie znajac hasla administratora?

  2. Mam ponizszy kod:

procedure TForm1.RunCalc;
var
 StartupInfo: TStartupInfo;
 ProcessInfo: TProcessInformation;
begin
 FillChar(StartupInfo, SizeOf(StartupInfo), #0);
 StartupInfo.cb := SizeOf(StartupInfo);
 StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
 StartupInfo.wShowWindow := SW_SHOWNORMAL;
 CreateProcess(nil, PChar('calc.exe'), nil, nil, False,
 CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInfo);
end;

W taki smieszny sposob odpala kalkulatorka :)

I teraz mam pytanie: czy dla Delphi istnieje odpowiednik polecenia win2000: RUNAS /USER:administrator CALC ?

Dotarlem do ponizszego kodu, ale wyskakuje mi blad (Delphi 7) z informacja o braku procedury CreateProcessWithLogonW:

procedure TForm1.Button4Click(Sender: TObject);
var
{} StartupInfo: TStartupInfo;
{} ProcessInfo: TProcessInformation;
begin
{} FillChar(StartupInfo, SizeOf(StartupInfo), #0);
{} StartupInfo.cb := SizeOf(StartupInfo);
{} StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
{} StartupInfo.wShowWindow := SW_SHOWNORMAL;
{} CreateProcessWithLogonW(PChar('Administrator'), PChar('.\'), PChar('password'),
{} 0, nil, PChar('calc.exe'), CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInfo);
{} if GetLastError <> 0 then ShowMessage(SysErrorMessage(GetLastError));
end;

//pamietaj o znacznikach < delphi > -lofix

0

Jest w winapi funkcja CreateProcessAsUser, prawdopodobnie to jest to, o co ci chodzi.

1 użytkowników online, w tym zalogowanych: 0, gości: 1