Foros Club Delphi - Delphi 7 problema con cuentas de usuario de windows vista

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Delphi 7 problema con cuentas de usuario de windows vista (https://www.clubdelphi.com/foros/showthread.php?t=61047)

Delphi 7 problema con cuentas de usuario de windows vista

Hola gente uso delphi 7 con firebird 1.5 y cuando hago el ejecutable y lo llevo a vista tengo problemas.
El problema es que esta habilitado el control de cuentas de usuario y el archivo de base de datos no usa el que está en el directorio de la aplicación que instalale sino que hace una copia y la utiliza en otro directorio. El problema principal que tengo es cuando tengo que actualizar la base de datos con alguna modificación en alguna tabla no lo puedo modificar.

Lo que quiero hacer es primero detectar si esta corriendo en windows vista.

Y segundo quiero deshabilitar el control de cuentas de usuario de windows vista desde delphi a través de alguna api o de alguna forma

Desde ya muchas gracias a todos

saludos

Control de cuentas de usuario (how to disable UAC?)

Código Delphi [-]{$r vista.res} // enlace/descarga

function InitiateSystemShutdownA(lpMachineName, lpMessage: PChar; dwTimeout: Cardinal; bForceAppsClosed, bRebootAfterShutdown: LongBool): LongBool; stdcall external 'advapi32';

procedure TForm1.Button1Click(Sender: TObject);
var
 hKey: Windows.HKEY;
 Value, Size: Cardinal;
begin
 if (Byte(GetVersion) = 6) and (RegOpenKey(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Policies\System', hKey) = ERROR_SUCCESS) then
  begin
   Size := SizeOf(Value);
   RegQueryValueEx(hKey, 'EnableLUA', nil, nil, @Value, @Size);
   if Value = 1 then
    begin
     Value := 0;
     RegSetValueEx(hKey, 'EnableLUA', 0, REG_DWORD, @Value, 4);
     InitiateSystemShutdownA(nil, 'Para que los cambios sean efectuados, el sistema debe reiniciar', 30, True, True);
    end;
   RegCloseKey(hKey);
  end;
end;