[Zorkov Igor]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ShellExecuteInfo: TShellExecuteInfo;
begin
  ShellExecuteInfo.cbSize:= SizeOf(TShellExecuteInfo);
  ShellExecuteInfo.fMask:= 0;
  ShellExecuteInfo.Wnd:= 0;
  ShellExecuteInfo.lpVerb:= 'runas';
  ShellExecuteInfo.lpFile:= PChar(ParamStr(0));
  ShellExecuteInfo.lpParameters:= PChar('/INSTALL');
  ShellExecuteInfo.lpDirectory:= nil;
  ShellExecuteInfo.nShow:= SW_SHOWNORMAL;
  ShellExecuteEx(@ShellExecuteInfo)
end;