Salut à tous!

Comment pourrais obtenir le même résultat que MemL[Seg0040:$6C]:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses Winprocs,Wincrt;
Var s1,s2:Longint;
 
{$IFDEF WINDOWS}
Procedure __0040H;  far; external 'Kernel' index 193;
const  Seg0040: Word = Ofs(__0040H);
{$ENDIF}
 
Begin
 Clrscr;
 s1:=MemL[Seg0040:$6C];
 s2:=GetCurrentTime;
 Repeat
  Gotoxy(1,1);
  Writeln(MemL[Seg0040:$6C]-s1);
  Writeln(GetCurrentTime-s2);
 Until(KeyPressed);
End.
J'ai essayé avec GetCurrentTime, mais ce n'est pas linéaire...

Merci de votre aide! à+