Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Окружение OS    >>    dospath
   
 
 Расширение модуля DOS   Victor Ostashev 04.12.1994

Определение пути, из которого запускалась программа, и пути для временных файлов, если таковой установлен в системе



1k 
 

{+--------------------------+ | НЕБОЛЬШОЕ РАСШИРЕНИЕ | | МОДУЛЯ 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.