Ver Mensaje Individual
  #2  
Antiguo 21-11-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Supongo de cuando hablas de red, se trata deque estás ejecutando el EXE directamente sobre la máquina de red.
Creo que si obtienes el path del ejecutable, de ahí sacas la unidad y miras de qué tipo es, te puede servir.


Código Delphi [-]
var
  Unidad: string;
begin
  // Extraer la unidad del ejecutable
  Unidad := ExtractFileDrive(Application.ExeName);

  // Tipo de Disco?
  if (GetDriveType(PChar(Unidad)) = DRIVE_REMOVABLE) or
     (GetDriveType(PChar(Unidad)) = DRIVE_FIXED) then begin
    MessageDlg('LOCAL', mtInformation, [mbOK], 0);
  end
  else begin
    MessageDlg('No LOCAL', mtInformation, [mbOK], 0);
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita