Форум: "Сети";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];
ВнизПодключение сетевого диска!!!!! Найти похожие ветки
← →
kkostik (2003-03-06 16:13) [0]мастера раскажите пожалуйста, как в 95, 98 подключить сетевой диск?????
← →
Armen (2003-03-07 16:39) [1]WNetAddConnection
WNetAddConnection2
WNetAddConnection3
← →
mnteanu (2003-03-26 15:37) [2]----------------------------------------------------
ConectDrives.dfm
---------------------------------------------------
object Conect: TConect
Left = 259
Top = 132
BorderStyle = bsToolWindow
Caption = "Conect Drives"
ClientHeight = 310
ClientWidth = 180
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object BTGo: TButton
Left = 104
Top = 280
Width = 75
Height = 25
Caption = "Conect"
Enabled = False
TabOrder = 0
OnClick = BTGoClick
end
object Mess: TMemo
Left = 8
Top = 32
Width = 169
Height = 241
ScrollBars = ssVertical
TabOrder = 1
end
object List: TComboBox
Left = 8
Top = 8
Width = 169
Height = 22
Style = csOwnerDrawFixed
ItemHeight = 16
TabOrder = 2
OnChange = ListChange
end
end
----------------------------------------------------
ConectDrives.pas
---------------------------------------------------
unit ConectDrives;
interface
uses
inifiles,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TConect = class(TForm)
BTGo: TButton;
Mess: TMemo;
List: TComboBox;
procedure BTGoClick(Sender: TObject);
procedure ConnectDrive(drive,path: string );
procedure FormShow(Sender: TObject);
procedure ListChange(Sender: TObject);
end;
var
Conect: TConect;
implementation
{$R *.DFM}
procedure TConect.BTGoClick(Sender: TObject);
var
IniFile: TIniFile;
str: string;
sl : TStringList;
i : integer;
begin
sl := TStringList.Create;
try
Mess.Lines.Clear;
if List.Items[List.ItemIndex] = "" then begin
Mess.Lines.Add("Alegeti grupa.");
exit;
end;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),".ini"));
try
IniFile.ReadSection(List.Items[List.ItemIndex],sl);
for i:= 0 to sl.Count-1 do begin
str:=IniFile.ReadString(List.Items[List.ItemIndex],sl.Strings[i], "ERROR");
ConnectDrive(sl.Strings[i], str);
end;
finally
IniFile.Free;
end;
finally
sl.Free;
end;
end;
procedure TConect.FormShow(Sender: TObject);
var
IniFile: TIniFile;
begin
Mess.Lines.Clear;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),".ini"));
try
IniFile.ReadSections(List.Items);
finally
IniFile.Free;
end;
end;
procedure TConect.ConnectDrive( drive, path : string );
var
NRW: TNetResource;
sNetPath : array [0..max_path] of Char;
dwMaxNetPathLen :DWord;
conect : byte;
conpath : string;
begin
conect:=1;
dwMaxNetPathLen:=sizeof(sNetPath);
WNetGetConnection( PChar( drive ),
sNetPath ,
dwMaxNetPathLen );
conpath:=string(sNetPath);
drive:=UpperCase(drive);
path:=UpperCase(path);
conpath:=UpperCase(conpath);
if conpath <> "" then begin
if conpath <> path then begin
if WNetCancelConnection2(PChar( drive ),
CONNECT_UPDATE_PROFILE,True ) = NO_ERROR then begin
Mess.Lines.Add("Deconectat " + drive + " " + path+".")
end
else begin
Mess.Lines.Add("Error: Deconectare " + drive + " " + path+".")
end;
end
else begin
conect:=0;
end;
end;
if conect = 1 then begin
with NRW do begin
dwType := RESOURCETYPE_ANY;
lpLocalName := pchar(drive);
lpRemoteName := PChar(path);
lpProvider := nil;
end;
if WNetAddConnection2(nrw, nil, nil, CONNECT_UPDATE_PROFILE ) = NO_ERROR then
Mess.Lines.Add(drive + " " + path + " conectat.")
else
Mess.Lines.Add("Erroare de conectare " + drive + " " + path+".");
end
else
Mess.Lines.Add(drive + " " + path + " deja conectat.");
sNetPath:=#0;
end;
procedure TConect.ListChange(Sender: TObject);
begin
BTGo.Enabled:=True;
end;
end.
----------------------------------------------------
DRIVES.INI
---------------------------------------------------
[section1]
G:=\\server\share1
I:=\\server\share2
J:=\\server\share3
K:=\\server\share4
L:=\\server\share5
M:=\\server\share6
P:=\\server\share7
Q:=\\server\share8
S:=\\server\share9
T:=\\server\share10
U:=\\server\share11
V:=\\server\share12
W:=\\server\share13
X:=\\server\share14
Z:=\\server\share15
[section2]
J:=\\server\share7
K:=\\server\share9
----------------------------------------------------
DRIVES.DPR
----------------------------------------------------
program Drives;
uses
Forms,
Windows,
ConectDrives in "ConectDrives.pas" {Conect};
{$R *.RES}
var
ExtendedStyle : integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW);
Application.CreateForm(TConect, Conect);
Application.Run;
end.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c