XPost: comp.lang.pascal.delphi.misc, comp.lang.pascal   
   From: maarten@kittensandcats.net   
      
    wrote in message   
   news:1102457679.104683.84680@c13g2000cwb.googlegroups.com...   
      
   > Up until the swithover we were using the procudure below to get the   
   > server time of a novell server, Now we are using a win2K server and   
   > can't get this to work, any ideas?   
   >   
   > Function ServerTime : Double;   
   > { Returns the file server clock as a number of hours since Midnight,   
   >   with no error checking. ($E7 does not return an error code)   
   > }   
   >   
   > Var   
   > Regs : Registers;   
   > ReplyBuffer : Array[0..6] of Byte;   
   >   
   > Begin   
   > Regs.AH := $E7;      { Call to Novell API: Get File Server Time }   
   > Regs.DS := Seg(ReplyBuffer);   
   > Regs.DX := Ofs(ReplyBuffer);   
   > MsDos(Regs);         { Give it to DOS }   
      
   Windows 2000 is not DOS.   
      
      
   > ServerTime := ReplyBuffer[3] + ReplyBuffer[4]/60 +   
   > ReplyBuffer[5]/3600;   
   > End;   
   >   
   >   
   > The Regs stuff is returning zero, but I don't know what to replace the   
   > $E7 with.   
      
   Type "Now", press F1, read help.   
      
   Groetjes,   
   Maarten Wiltink   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)