網路copy檔案 |
答題得分者是:wameng
|
gavinj123
初階會員 發表:88 回覆:48 積分:27 註冊:2002-10-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
可用 WNetAddConnection2 這個 API
參考: http://www2.ccw.com.cn/tips/9906/060704_05.asp
// 建立網路磁碟機 X 槽 procedure TForm1.Button1Click(Sender : TObject); var NetSource : TNetResource; begin with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName := 'X:'; lpRemoteName := '\192.168.1.100\test'; lpProvider := ''; end; WnetAddConnection2(NetSource, 'Password', 'Guest', CONNECT_UPDATE_PROFILE); // Login ID 為 Guest, Password 為 Password end; // 中斷網路磁碟機 X 槽 procedure TForm1.Button1Click(Sender : TObject); begin WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True); end;設定網路磁碟機成功後, 再執行 copy 的動作 |
gavinj123
初階會員 發表:88 回覆:48 積分:27 註冊:2002-10-15 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
{ 建立連接到遠端電腦共享資料夾.成功 Result = 0 失敗 Result ErrorCode } Function NetAddConnection(RemoteDir,UserID,PSWD :String;
Const ResType:DWORD = RESOURCETYPE_DISK):integer;
var
NetSource : TNetResource;
PUserID,PPSWD : PChar;
begin
with NetSource do
begin
lpLocalName := nil;
dwType := ResType;
lpRemoteName := Pchar(RemoteDir);
lpProvider := Nil;
end;
if UserID<>'' then PUserID:=PChar(UserID) else PUserID := Nil;
if PSWD<>'' then PPSWD :=PChar(PSWD) else PPSWD := Nil;
Result := WnetAddConnection2(NetSource,PUserID,PPSWD,CONNECT_UPDATE_PROFILE);
end; 不需要建立網路磁碟機
試試!
|
Dragon_1977
一般會員 發表:4 回覆:7 積分:2 註冊:2004-11-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |