[<<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