如何修改工作群組名稱? |
|
答題得分者是：pceyes
|
|
sikchun
一般會員   發表：5 回覆：7 積分：2 註冊：2006-07-05 發送簡訊給我 |
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
sikchun
一般會員 發表：5 回覆：7 積分：2 註冊：2006-07-05 發送簡訊給我 |
|
|
sikchun
一般會員 發表：5 回覆：7 積分：2 註冊：2006-07-05 發送簡訊給我 |
|
|
pceyes
尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
[code delphi] Function JoinWorkGroup(sNewWorkgroupName:string): Boolean; type Type_NetJoinDomain = function(lpServer, lpDomain, lpAccountOU, lpAccount, lpPassword: LPCWSTR; fJoinOptions: DWORD): integer; stdcall; var lngResultCode : LongInt; iResultCode : Integer; _NetJoinDomain : Type_NetJoinDomain; lpNewWorkgroupName : LPCWSTR; begin GetMem(lpNewWorkgroupName,Length(sNewWorkgroupName)*2 1); stringtowidechar(sNewWorkgroupName,lpNewWorkgroupName,Length(sNewWorkgroupName)*2 1); JoinWorkGroup:=False; Try iResultCode:=LoadLibrary(pchar('NetAPI32.dll')); @_NetJoinDomain:=GetProcAddress(iResultCode,pchar('NetJoinDomain')); lngResultCode:= _NetJoinDomain(nil,lpNewWorkgroupName,nil,nil,nil,0); FreeLibrary(iResultCode); Finally end; if lngResultCode = 0 then JoinWorkGroup:=TRUE else ShowMessage(inttostr(lngResultCode)); end; procedure TForm1.Button1Click(Sender: TObject); begin JoinWorkGroup('pceyes2009'); end; [/code]
------
努力會更接近成功 |
|
sikchun
一般會員 發表：5 回覆：7 積分：2 註冊：2006-07-05 發送簡訊給我 |
|
|
pceyes
尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
NETAPI32.DLL是在WINDOWS\SYSTEM32之下，不用複製，也不用IMPORT進來
我測試環境如下: windows xp Service Pack 3 之前是用 BCB6試出來都可以用 [code cpp] //--------------------------------------------------------------------------- #include #pragma hdrstop #include "lm.h" // 它include lmjoin.h(有關Flags to determine the behavior of the join/unjoin APIs請查這裏) //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { LPCWSTR pServer = NULL; LPCWSTR pDomain = L"MSHOME"; // 重點一 LPCWSTR pAccountOU = NULL; LPCWSTR pAccount = NULL; LPCWSTR pPassword = NULL; DWORD nJoinOptions = NETSETUP_DOMAIN_JOIN_IF_JOINED; // 重點二 NetJoinDomain(pServer, pDomain, pAccountOU, pAccount, pPassword, nJoinOptions); // 執行 NetJoinDomain() 時，會停頓一段時間 } //--------------------------------------------------------------------------- [/code]
------
努力會更接近成功 |
發表時間：2008-11-20 10:00:08
IP:122.100.xxx.xxx 訂閱
系統時間：2024-05-15 15:51:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |