[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
WINADD.INT

 { ---------------------------------------------------------------- }
 {                 TDB-WINDOWS-KOMPATIBILIT.TS-ADD-ON'S             }
 { ---------------------------------------------------------------- }
 { Stellt einige unter Turbo-Pascal f.r Windows fehlende, in TP-DOS }
 { jedoch vorhandene Routinen / Typen zur Verf.gung.                }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }

 UNIT WinADD;

 INTERFACE

   USES
     WinDOS,
     Strings;


   TYPE

 { ---------------------------------------------------------------- }
 { Programmname plus Pfad laut MS-DOS - in der Unit "DOS" defi-     }
 { niert, in "WinDOS" jedoch nicht mehr.                            }
 { ---------------------------------------------------------------- }

     PathStr        = STRING [FsPathName];
     DirStr         = STRING [FsDirectory];
     NameStr        = STRING [FsFileName];
     ExtStr         = STRING [FsExtension];


 { ---------------------------------------------------------------- }
 { Die Register-Vereinbarung wird von den Interrupt-Aufrufen ver-   }
 { wendet, TDateTime ben.tigt TDB zum Bestimmen der Time-Stamp der  }
 { Files.                                                           }
 { ---------------------------------------------------------------- }

   REGISTERS        = TRegisters;

   DateTime         = TDateTime;


 { ---------------------------------------------------------------- }
 { Erweitert eine unvollst.ndige Pfadangabe - ebenfalls in der Unit }
 { "DOS" definiert, in "WinDOS" jedoch nur mehr unter einem anderen }
 { Namen und mit anderen Parametern vorhanden.                      }
 { ---------------------------------------------------------------- }

   FUNCTION FEXPAND (Before : STRING) : STRING;


 { ---------------------------------------------------------------- }
 { Splittet einen Dateinamen in seine drei Bestandteile Pfad, Name  }
 { und Extension (sofern vorhanden). - ebenfalls in der Unit "DOS"  }
 { definiert, in "WinDOS" jedoch nur mehr unter einem anderen Namen }
 { und mit anderen Parametern vorhanden.                            }
 { ---------------------------------------------------------------- }

   PROCEDURE FSPLIT (apAth : PATHSTR; VAR ADir : DIRSTR;
                             VAR AName : NAMESTR; VAR AExt : EXTSTR);
.

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson