{+--------------------------+
 |   НЕБОЛЬШОЕ РАСШИРЕНИЕ   |
 |       МОДУЛЯ DOS         |
 |                          |
 | 04.12.94 02:52           |
 |                          |
 +--------------------------+
Автор:  Виктор Осташев
Fido:   2:5020/1194
E-mail: v_ostashev@chat.ru
WWW:    http://ostashev.newmail.ru}

{$D-; $L-; $N-}

unit DOSPATH;

interface

procedure DosShell;

{Выход в ДОС}


procedure StartPath(var Path:string);

{Определение пути, из которого
 запускалась программа}


procedure TempPath(var Path:string);

{Определение пути временных файлов,
 если таковой установлен в системе}


implementation

uses DOS;

procedure DosShell;
   begin
      SwapVectors;
      Exec(GetEnv('COMSPEC'),'');
      SwapVectors;
   end;

procedure StartPath;
   var S1,S2: string[10];
   begin
      FSplit(ParamStr(0),Path,S1,S2);
   end;

procedure TempPath;
   begin
      Path:=GetEnv('TEMP');
      if Path='' then Path:=GetEnv('TMP');
      if (Path<>'') and (Path[Length(Path)]<>'\') then Path:=Path+'\';
   end;



end.