急求一个代码

[wuhuar]

怎样用BCB编写一段代码,修改XP系统的工作组名称.

高分相送

[wuhuar]

奇了怪了,我在装了BCB的机子上试了可以,到别的所有的机子上试都不可以.

[wuhuar]

网上找到的一段代码,但不会用,要用到netapi32.dll

LPCWSTR pServer = NULL;
LPCWSTR pDomain = L"MSHOME";
LPCWSTR pAccountOU = NULL;
LPCWSTR pAccount = NULL;
LPCWSTR pPassword = NULL;
DWORD nJoinOptions = NETSETUP_DOMAIN_JOIN_IF_JOINED;
NET_API_STATUS nStatus = NetJoinDomain(pServer, pDomain, pAccountOU, pAccount, pPassword, nJoinOptions);

[yumikoo]

//以下代码需要头文件#include   "Lm.h"
NET_API_STATUS   status;
    status=NetJoinDomain(NULL,WideString("yumikoo组").c_bstr(),NULL,
                    WideString("name").c_bstr(),   WideString("密码").c_bstr(),
                    NETSETUP_ACCT_CREATE);
    if(status   ==   NERR_Success)
    {
        ShowMessage("修改成功！");
    }

[痞子酷]

呵呵，接分！！！

1W还差20多分，努力接分！

[wuhuar]

非常感谢,成功了,高兴

准备给帖子加点分,但CSDN不能当天加分,明天再结帖哈.

[痞子酷]

呵呵，接分！！！

1W还差20多分，努力接分！

[xjq2003]

[Quote=引用 2 楼 yumikoo 的回复:]
C/C++ code
//以下代码需要头文件#include "Lm.h"
NET_API_STATUS status;
status=NetJoinDomain(NULL,WideString("yumikoo组").c_bstr(),NULL,
WideString("name").c_bstr(), WideString("密码").c_bstr(),
NETSETUP_ACCT_CREATE);
if(status == NERR_Success)
{
ShowMessage("修改成功！");
}
[/Quote]
我也学习一下!

[yumikoo]

[Quote=引用 7 楼 wuhuar 的回复:]
奇了怪了,我在装了BCB的机子上试了可以,到别的所有的机子上试都不可以.
[/Quote]

1.首先选择Project菜单，点击Options按钮，弹出Project Options窗口。然后选择 Linker标签，在Linking框中去掉Use dynamic RTL选项。

2.在project选取项中packages页下去掉build with runtime package选项。

3.在project项中，complier页下点击release按钮。（可选）

[wuhuar]

谢谢各位啊,我不是程序不能运行,我是按上面这样做了,是可以运行,但是在别的机子,改不了工作组,status返回的值是2220,好象是没有这个工作组.

[xjq2003]

[Quote=引用 8 楼 yumikoo 的回复:]
引用 7 楼 wuhuar 的回复:
奇了怪了,我在装了BCB的机子上试了可以,到别的所有的机子上试都不可以.


1.首先选择Project菜单，点击Options按钮，弹出Project Options窗口。然后选择 Linker标签，在Linking框中去掉Use dynamic RTL选项。

2.在project选取项中packages页下去掉build with runtime package选项。

3.在project项中，complier页下点击release按钮。（可选）
[/Quote]
正解

[yumikoo]

是XP系统不?

[zhgwbzhd]

直接修改注册表即可。
看看注册表的相关东东吧。

[wuhuar]

是XP系统啊,我今天在我的另一台电脑上装了BCB,把源程序COPY过来,编译运行,也不可以,但在我第一台机子上确实可以的.

[yumikoo]

再换到第三台电脑试试。排除是第二台电脑本身问题先。

[oyljerry]

直接创建试试
NET_API_STATUS status;
status=NetJoinDomain(NULL,WideString("WorkGroup").c_bstr(),NULL,
WideString("name").c_bstr(), WideString("密码").c_bstr(),
NETSETUP_ACCT_CREATE);
if(status == NERR_Success)
showmessage("修改成功！");