Crear unidad virtual temporaria

[[seoane]]

Por muy restringido que este el sistema, siempre tendrás acceso a un directorio temporal (corregirme si me equivoco). Solo tendrías que crear un directorio dentro del directorio temporal y usar "subst", o algún método similar, para convertirlo en una nueva unidad de disco.

[marcoszorrilla]

Acabo de hacer una prueba con el que yo creía obsoleto comando interno del DOS y funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec( 'Subst J: E:\marcosweb' ,SW_SHOWNORMAL);
end;

Un Saludo.

[[seoane]]

Yo tambien hice algunas pruebas:

Código Delphi [-]
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
const
  Nombre = 'Temporal';
var
  Buffer: array[0..MAX_PATH] of Char;
  TempPath: string;
begin
  FillChar(Buffer,Sizeof(Buffer),0);
  if GetTempPath(Sizeof(Buffer) - 1, @Buffer) > 0 then
  begin
    TempPath:= string(PChar(@Buffer));
    if Copy(TempPath, Length(TempPath), 1) <> '\' then
      TempPath:= TempPath + '\';
    TempPath:= TempPath + Nombre;
    if not DirectoryExists(TempPath) then
      CreateDirectory(PChar(TempPath), nil);
    ShellExecute(Handle, nil, 'Subst', PChar('z: ' + TempPath), nil, SW_HIDE);
  end;
end;

[ANG4L]

Marcos, eso es sobre NT o 9x?

[ANG4L]

seoane, esa funciona de maravilla !

[ANG4L]

y para "desmontar" como serian los parametros ?

[[seoane]]

Empezado por ANG4L

y para "desmontar" como serian los parametros ?

Volveriamos a usar el comando Subst

Código Delphi [-]
  // Z es la letra de la unidad a desmontar
  ShellExecute(Handle, nil, 'Subst', PChar('/D z:'), nil, SW_HIDE);

[ANG4L]

Se Agradeceeee !!!!
Pero me quede con la otra duda, como seria ?
No me va a dejar dormir, ajjajaj

Saludos, gente !