Delphi 访问并打开局域网共享文件夹

最新推荐文章于 2025-07-08 11:52:04 发布

原创

最新推荐文章于 2025-07-08 11:52:04 发布 · 5.5k 阅读

7 ·

CC 4.0 BY-SA版权

这篇博客介绍了如何使用Delphi程序连接到局域网中的共享文件夹，通过WnetAddConnection2函数建立连接，并进行文件的复制操作。接着，展示了如何断开连接，以及使用ShellExecute打开共享文件夹。对于需要在Delphi中处理网络文件操作的开发者来说，这是一个实用的示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure ConnectServer;
procedure DisConnectServer;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
g_bFlag:boolean;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ConnectServer;
end;

procedure TForm1.ConnectServer;
var