Compilación condicional

[santiago14]

Gracias nlsgarcia, yo creo que sí sirve.
Me explico mejor.

Hay una unit que uso, pero solamente ha sido desarrollada para Win8, si compilo en DelphiXE5 sobre Win8 y lo ejecuto , lo hace sin problemas.
Cuando llevo ese ejecutable a otra máquina (XP, Win7), no se ejecuta y devuelve un error.
La idea es que cuando esté corriendo en cierto sistema operativo, Win8, le dé bolilla a esa unit, que está en uses claro, y cuando esté corriendo en otro, no. No se si entiende. Lo mismo vale para los objetos, que están dentro del código, que son de esa unit.
Ahora que lo veo, no se si por el lado de las condicionales la cosa se encamina.

Supongo que se puede combinar lo que pusiste con esta explicación.
Un detalle mas, a esa unit la debo poner en la lista de unit del program.

[[duilioisola]]

Con lo que te han explicado, supongo que sería algo así:

Código Delphi [-]
unit CosasParaWindows8;
...
implementatin
funtion DevuelveCosaEspecial(...);
begin
   if (EsWindows8) then
   begin
      ...
   end
   else
      Return -1; // error
end;

La otra opción es:

Código Delphi [-]
funtion EstoUtilizaAlgoDeWindows8(...);
begin
   ...
   if (EsWindows8) then
      VariableEspeciaal := DevuelveCosaEspecial(...)...
   else
      VariableEspeciaal := Obtengo_el_valor_de_otra_manera;   
   ...   
end;

[[nlsgarcia]]

santiago14,

Empezado por santiago14

...Hay una unit que uso, pero solamente ha sido desarrollada para Win8...en Delphi XE5 sobre Win8...sin problemas...Cuando llevo ese ejecutable a otra máquina (XP, Win7), no se ejecuta...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses UWindowsX, UWindows8;

function GetWindowsVersion : Boolean;
var
   OSVersion : TOSVersion;
begin
   if Copy(OSVersion.Name,1,9) = 'Windows 8' then
      Result := True
   else
      Result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if GetWindowsVersion then
      UWindows8.Msg  // Se ejecuta si el OS es Windows 8
   else
      UWindowsX.Msg; // Se ejecuta si el OS es una versión diferente a Windows 8
end;

end.

El código anterior en Delphi XE6, ejecuta el procedimiento Msg en función de si el Sistema Operativo es Windows 8 o es otro Sistema Operativo Windows.

Espero sea útil

Nelson.

[[escafandra]]

Para dar más información, revisa la API GetVersionEx y la estructura OSVERSIONINFO

Código Delphi [-]
function IsWin8: boolean;
var
  VerInfo: TOSVersioninfo;
begin
  VerInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);
  GetVersionEx(VerInfo);
  Result:= (VerInfo.dwMajorVersion >= 6) and (VerInfo.dwMinorVersion >= 2);
end;

Nota importante:
El código anterior dará WinXP(5.1) si corres por ejemplo delphi7 en Win8 en modo de compatibilidad WinXP durante el debug, pero la aplicación ya compilada reconocerá Win8 sin error

Saludos.

[[nlsgarcia]]

santiago14,

Nota: El segundo código del Msg #3 (Basado en la API GetVersionEx) si es ejecutado en Delphi 7 en modo Debug, identifica erróneamente el SO Windows Vista, Windows 7 y Windows 8 como Windows XP, si es ejecutado directamente desde el ejecutable funcionara correctamente según lo esperado.

Nelson.