unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// ³×Æ®¿öÅ© µå¶óÀÌºê ¿¬°á
procedure TForm1.Button1Click(Sender: TObject);
var
lpszNetPath,
lpszPassword,
lpszLocalName: array[0..50] of Char;
rt: DWORD;
begin
StrPCopy(lpszPassword, '1234'); // ³×Æ®¿öÅ© µå¶óÀ̺ê(°øÀ¯Æú´õ)ÀÇ ºñ¹Ð¹øÈ£
StrPCopy(lpszNetPath, '\Unify5insa'); // ³×Æ®¿öÅ© µå¶óÀ̺ê+°øÀ¯Æú´õ
StrPCopy(lpszLocalName, 'F:'); // ·ÎÄà µå¶óÀ̺ê¸í
rt := WNetAddConnection(lpszNetPath, lpszPassword, lpszLocalName);
if rt = 7 then
begin
ShowMessage('³×Æ®¿öÅ© µå¶óÀ̺긦 ¿¬°áÇÒ ¼ö ¾ø½À´Ï´Ù. ºñ¹Ð¹øÈ£¸¦ È®ÀÎÇϼ¼¿ä');
end
else if rt <> WN_SUCCESS then
begin
MessageDlg('³×Æ®¿öÅ© µå¶óÀ̺긦 ¿¬°áÇÒ ¼ö ¾ø½À´Ï´Ù'+
', Return Code: ' + (IntToStr(rt)) ,
mtInformation, [mbOk], 0);
end
else
begin
ShowMessage('³×Æ®¿öÅ© µå¶óÀ̺갡 ¼³Á¤µÇ¾ú½À´Ï´Ù');
end;
end;
// ³×Æ®¿öÅ© µå¶óÀÌºê ¿¬°á ÇØÁ¦
procedure TForm1.Button2Click(Sender: TObject);
var
lpszLocalName: array[0..50] of Char;
rt: DWORD;
begin
StrPCopy(lpszLocalName, 'F:'); // ·ÎÄà µå¶óÀ̺ê¸í
rt := WNetCancelConnection(lpszLocalName, True);
if rt <> WN_SUCCESS then
begin
MessageDlg('³×Æ®¿öÅ© µå¶óÀ̺êÀÇ ¿¬°áÀ» ÇØÁ¦ÇÒ ¼ö ¾ø½À´Ï´Ù'+
', Return Code: ' + (IntToStr(rt)) ,
mtInformation, [mbOk], 0);
end
else
begin
ShowMessage('³×Æ®¿öÅ© µå¶óÀ̺êÀÇ ¿¬°áÀÌ ÇØÁ¦µÇ¾ú½À´Ï´Ù');
end;
end;
end. |
|