Mam kilka problemow dot. win 2000:
-
Czy mozna w jakis sposob zapisac plik w katalogu windows:
a) znajac haslo administratora?
b) nie znajac hasla administratora? -
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