Bonjour à toutes et à tous,

En transposant une unité sous Linux, je tombe sur un os.

Le problème vient de cette instruction nécessitant l'unité windows.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure Seek64(var f: File; Pos: longword);
var
  HiDWord: DWORD;
begin
  HiDWord := 0;
  SetFilePointer(TFileRec(f).Handle, Pos, @HiDWord, FILE_BEGIN); // <-- Cette instruction là
end;
Y a-t-il un équivalent sous Linux ou une unité où cette procédure serait déclarée ou autre.

Merci pour votre aide.

Cordialement.

Pierre