home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1998 March / pcx19_9803.iso / PC-XUSER / PC-XUSER.14 / TT / _MKDIR.PAS next >
Encoding:
Pascal/Delphi Source File  |  1997-01-31  |  552 b   |  22 lines
  1. var
  2.   S, O   : Word;
  3.   DirPath: String;
  4.   Error  : Word;
  5. BEGIN
  6.   Error:=0;
  7.   DirPath:='C:\!TOROLD.LE!'#0;       {Töröld le ez csak egy próba volt !}
  8.   S:=Seg(DirPath); O:=Ofs(DirPath)+1; {Növeljük eggyel mert nincs szükség}
  9.   asm                                 { a hosszra az ASCIIZ-hez.         }
  10.     push ds
  11.     mov  dx, S
  12.     mov  ds, dx
  13.     mov  dx, O
  14.     mov  ax, 3900h
  15.     int  21h
  16.     jnc  @NoHiba
  17.     mov  Error, ax
  18.   @NoHiba:
  19.     pop  ds
  20.   end;
  21.   if Error <> 0 then WriteLn('Nem sikerült a könyvtárat létrehozni !');
  22. END.