Скачать Расширение модуля DOS

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.