Данный модуль позволяет запустить процесс от имени системы (NT AUTHORITY\система).
Пример использования:
uses
{...,} RunAsSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
// 1-ый параметр: запускаемый файл
// 2-ый параметр: параметры
// 3-ый параметр: идентификатор безопасности
// • для XP и ниже принимает значение UnknownIntegrityLevel
// • для Vista и выше может принимать значения LowIntegrityLevel,
// MediumIntegrityLevel, HighIntegrityLevel или SystemIntegrityLevel
if not RunProcAsSystem( Edit1.Text, '111', SystemIntegrityLevel ) then
ShowMessage( 'Не удалось запустить файл: ' + Edit1.Text );
end;
|
