Hello i've this code to launch an external Application as a system :

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  StartupInfo: TStartupInfoW;
  ProcessInformation: TProcessInformation;
begin
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfoW));
  FillChar(StartupInfo, SizeOf(TStartupInfoW), 0);
  StartupInfo.cb := SizeOf(TStartupInfoW);
  StartupInfo.lpDesktop := 'WinSta0\Default';
  if CreateProcessAsSystemW(
    PWideChar(WideString(Edit1.Text)),
    PWideChar(WideString(Edit1.Text + ' -hi')),
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInformation,
    SystemIntegrityLevel) then
  begin
    CloseHandle(ProcessInformation.hThread);
    CloseHandle(ProcessInformation.hProcess);
  end;
end;

my question is : how can i launch my application as a system , that's to say how to launch the application itself as a system instead of launching an external application .

many thanks

By putting your application executable in as command instead of Edit1.Text? (ParamStr(0) )

Zitat von jaenicke:

By putting your application executable in as command instead of Edit1.Text? (ParamStr(0) )

thank you , but what i meant is should i put it in the project.dpr if yes then should delete

Application.Initialize thank you again

You can not give your running executable system access rights. You can only start a new instance of your executeble with those rights. And you could do so inside your project file if you want to.

But if you need to run in system context, why don't you just write a service application?

Zitat von jaenicke:

You can not give your running executable system access rights. You can only start a new instance of your executeble with those rights. And you could do so inside your project file if you want to.

is that mean my application will have 2 different PIDs ?

The first instance can be closed, so only the second remains. But yes, your second instance will have a new PID and will be running separately from the first.

There is no other possibility.