Estoy usando este componente JvConnectNetwork1, de las VCL de JEDI.
Pero no se como hacer, para capturar la
ruta de la unidad de Red que seleccione, ni si elegi marcar
conectarse de nuevo al iniciar sesión, es posible hacerlo?
Por si sirve de ayuda, adjunto el PAS de la unidad JvConnectNetwork
Código Delphi
[-]
unit JvConnectNetwork;
{$I jvcl.inc}
{$I windowsonly.inc}
interface
uses
{$IFDEF UNITVERSIONING}
JclUnitVersioning,
{$ENDIF UNITVERSIONING}
Windows,
JvBaseDlg;
type
TJvConnectNetwork = class(TJvCommonDialog)
published
function Execute: Boolean; override;
end;
TJvDisconnectNetwork = class(TJvCommonDialog)
published
function Execute: Boolean; override;
end;
TJvNetworkConnect = class(TJvCommonDialog)
private
FConnect: Boolean;
published
property Connect: Boolean read FConnect write FConnect;
function Execute: Boolean; override;
end;
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svn...ectNetwork.pas $';
Revision: '$Revision: 10612 $';
Date: '$Date: 2006-05-19 21:04:09 +0200 (ven., 19 mai 2006) $';
LogPath: 'JVCL\run'
);
{$ENDIF UNITVERSIONING}
implementation
function TJvConnectNetwork.Execute: Boolean;
begin
Result := WNetConnectionDialog(GetForegroundWindow, RESOURCETYPE_DISK) = NO_ERROR;
end;
function TJvDisconnectNetwork.Execute: Boolean;
begin
Result := WNetDisconnectDialog(GetForegroundWindow, RESOURCETYPE_DISK) = NO_ERROR;
end;
function TJvNetworkConnect.Execute: Boolean;
begin
if FConnect then
Result := WNetConnectionDialog(GetForegroundWindow, RESOURCETYPE_DISK) = NO_ERROR
else
Result := WNetDisconnectDialog(GetForegroundWindow, RESOURCETYPE_DISK) = NO_ERROR;
end;
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.
Saludos y Gracias