02 Set 2014 17:24
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"
02 Set 2014 19:43
11 Set 2014 10:52
12 Abr 2015 22:09
13 Abr 2015 16:46
[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;
18 Mai 2016 18:30
18 Mai 2016 19:00