Como utilizar códigos específicos para 32 ou 64 bits?
Para diferenciar códigos entre as diferentes plataformas,
é necessário fazer uso das diretivas de compilação.
Para Win32 utilizamos {$IFDEF WIN32}
Para Win64 utilizamos {$IFDEF WIN64}
Há ainda outras diretivas para outras plataformas
como macOS, iOS, android e etc
Abaixo segueExemplo de uso:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm1.Button1Click(Sender: TObject);
begin
{ Está parte do código só será considerado se você compilar
Como Windows 32 bits. }
{$IFDEF WIN32}
ShowMessage('Compilado para Windows 32 bits');
{$ENDIF$}
{ Está parte do código só será considerado se você compilar
Como Windows 32 bits. }
{$IFDEF WIN64}
ShowMessage('Compilado para Windows 64 bits');
{$ENDIF}
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Está parte do código só será considerado se você compilar
Como Windows 32 bits. }
{$IFDEF WIN32}
ShowMessage('Compilado para Windows 32 bits');
{$ENDIF$}
{ Está parte do código só será considerado se você compilar
Como Windows 32 bits. }
{$IFDEF WIN64}
ShowMessage('Compilado para Windows 64 bits');
{$ENDIF}
end;
Dúvidas ou sugestões deixe nos comentários do post.
-
Giovani Da Cruz
-
4.753 views
- 0 comentários
- 26 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo