PC Toledo

Código: Selecionar todos

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags]
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"C:\\Arquivos de programas\\MeuSistema\\SISTEMA.EXE"="RUNASADMIN"
"C:\\Arquivos de programas\\MeuSistema\\INDEXA.EXE"="RUNASADMIN"
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:]
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\Arquivos de programas]
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\Arquivos de programas\MeuSistema]
"sistema.exe"="RUNASADMIN"
"indexa.exe"="RUNASADMIN"

Código: Selecionar todos

[Setup]
...

[Languages]
Name: "brazilianportuguese"; MessagesFile: "compiler:languages\BrazilianPortuguese.isl"

[Run]
...

[Icons]
...

[Files]
...

[code]
var
  path:String;

procedure UAC(ativar:Boolean);
var
  versao:Cardinal;
  valor:Cardinal;
begin
  versao:=GetWindowsVersion() shr 24;
  if versao=6 then
  begin
    valor:=0;
    if RegQueryDWordValue(HKLM,'Software\Microsoft\Windows\CurrentVersion\Policies\System','EnableLUA',valor) then
    begin
        if (valor<>0) and (not ativar) then
           RegWriteDWordValue(HKLM,'Software\Microsoft\Windows\CurrentVersion\Policies\System','EnableLUA',0);
        if (valor<>1) and (ativar) then
           RegWriteDWordValue(HKLM,'Software\Microsoft\Windows\CurrentVersion\Policies\System','EnableLUA',1);
    end;
  end;
end;

function getPath(Param: String):String;
begin
  Result:=path;
end;

function InitializeSetup():Boolean;
begin
  path:='none';
  UAC(False);
  //if RegQueryStringValue(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{D79922B6-22F2-49B8-ABE0-6F572932C6EF}_is1','Inno Setup: App Path',path) then
  //begin
  //  if  CompareText(path,'none')<>0 then
      Result:=true
  //  else
  //  begin
  //    MsgBox('Nenhuma instalaçao do FENIX 10 foi encontrada! Esta atualizaçao será abortada!', mbError, MB_OK);
  //    //abort();
  //  end;
  //end
  //else
  //begin
  //  MsgBox('Nenhuma instalaçao do FENIX 10 foi encontrada! Esta atualizaçao será abortada!', mbError, MB_OK);
  //  //abort();
  //end;
end;

procedure DeinitializeSetup();
begin
  UAC(True);
  //MsgBox('Atualizaçao Finalizada!',mbInformation, MB_OK);
end;