下面这个简单的C++语句怎么翻译成DELPHI,简单拉，……快来抢分(100分)

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #1

wchar_t UserName [0x400];
memset(UserName,0,sizeof (UserName));
GetEnvironmentVariableW(L"USERNAME",UserName,0x400);
我是这样理解的，可惜编译没有通过
UserName : array [0..$400] of WideChar;
FillChar(UserName,Sizeof (UserName),#0);
GetEnvironmentVariableW(PWideChar('USERNAME'),UserName,$400);

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #2

问题出最后一个语句上面
GetEnvironmentVariableW(PWideChar('USERNAME'),UserName,$400);

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #3

var
UserName : array [0..$400] of WideChar;
begin
FillChar(UserName,Sizeof (UserName),#0);
GetEnvironmentVariableW('USERNAME',UserName,$400);

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #4

用 Unicode 得不到结果，以下反而能得到结果：
procedure TForm1.Button1Click(Sender: TObject);
var
UserName : array [0..$400] of Char;
begin
FillChar(UserName,Sizeof (UserName),#0);
GetEnvironmentVariable('path',UserName,$400);
showmessage(username);
end;

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #5

to jsxjd
改成：
GetEnvironmentVariableW('USERNAME',UserName,$400);
出现以下错误：（（
Error:There is no overloaded version of 'GetEnvironmentVariableW'
that can be called with these arguments

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #6

这是类型不匹配，你可能声明了 userName: 是 char
而 .........W 的参数是 Uncode字符。
^<<<<<<<<<<<<<<< 把“W”去掉
我试了一下，在VC下结果也一样，用Unicode得不到结果。

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #7

我的代码如下，还是出现了错误提示：（
Error:There is no overloaded version of 'GetEnvironmentVariableW'
that can be called with these arguments
另外这个程序必须用到WideChar的！！Char不行哟，到底怎么办??
UserName : array [0..$400] of WideChar;
FillChar(UserName,Sizeof (UserName),#0);
GetEnvironmentVariableW('USERNAME',UserName,$400);

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #8

不可能出错，我这边好好的，这个函数是不需要自己声明的，库中有声明。
procedure TForm1.Button1Click(Sender: TObject);
var
UserName : array [0..$400] of WideChar;
begin
FillChar(UserName,Sizeof (UserName),#0);
GetEnvironmentVariableW('USERNAME',UserName,$400);
showmessage(username);
end;

用不用 widechar 应该问题不在，
而且在VC下的结果也是这样！

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #9

问题解决拉：））谢谢哟，不过我用的别的方法！灵感从你哪里获得的……
var
UserName : array [0..$400] of Char;
begin
FillChar(UserName,Sizeof (UserName),#0);
GetEnvironmentVariable('path',UserName,$400);
……
关键是以下变化：★★
string(PWideChar(x)=username;

谢谢了，送分拉！很爽吧！！

 

A

anydelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #10

多人接受答案了。