Veja como transformar uma pasta em um drive local usando o Delphi. O funcionamento é similar ao comando SUBST do DOS.

//============================================================================== // Cria um drive mapeado para uma pasta local. // Exemplo: CreateDrive('Z:','C:\\Delphi'); //============================================================================== Function CreateDrive(DriveLetter, DrivePath:String):Boolean; Begin   DriveLetter := Copy(DriveLetter,1,1)+':';   Result := DefineDosDevice(DDD_RAW_TARGET_PATH,PChar(DriveLetter),PChar(DrivePath)); End; //============================================================================== // Retira um mapeamento de drive local // Exemplo: RemoveDrive('Z:'); //============================================================================== Function RemoveDrive(DriveLetter:String):Boolean; Begin   DriveLetter := Copy(DriveLetter,1,1)+':';   Result := DefineDosDevice(DDD_REMOVE_DEFINITION,PChar(DriveLetter),''); End; //============================================================================== // Retorna a pasta mapeada para um drive local // Exemplo: ShowMessage( GetDrivePath('Z:') ); //============================================================================== Function GetDrivePath(DriveLetter:String):String; var Buffer: array[0..255] of char; begin     DriveLetter := Copy(DriveLetter,1,1)+':';     FillChar(Buffer,SizeOf(Buffer),#0);     QueryDosDevice(PChar(DriveLetter),Buffer,SizeOf(Buffer));     Result := StrPas(Buffer); End;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 05/11/2003 09:43:00
Visualizado..: 2034 vezes
Fonte........: AdeN Knowledge DB