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
;