Crear unidad virtual temporaria

[ANG4L]

Buenas, gracias por la respuesta !
Es un programita que va a correr en lans, y previendo la configuracion de seguridad de algunas, y tanto para correr en el server como en los clientes, queria generalizar haciendo esta unidad virtual para no tener problemas, pero podria ser usando subst, ahora.... como hago, si no tengo derecho de escritura, para cambiar los derechos (luego de pedir el ingreso del pass de administrador)?


Desde ya muchas graciaaaaaaaaaas !!!!

[marcoszorrilla]

Estoy asombrado de que el Subst, siga existiendo aún.

Un Saludo.

[[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 ?