100分请高手帮看代码!!!

bluearc888 2004-10-13 12:14:15
请教如何将以下的VB代码译成delphi代码:特别是第3行和第6行。
1) Dim PassChar As Byte
2) Dim PassWord As String
3) PassWord = String(256, Chr(0))
4) PassChar = SendMessage(Ihwnd, EM_GETPASSWORDCHAR, 0, 0)
5) Call PostMessage(Ihwnd, EM_SETPASSWORDCHAR, 0, 0)
6) Call SendMessage(Ihwnd, WM_GETTEXT, 256, ByVal PassWord)
7) Call PostMessage(Ihwnd, EM_SETPASSWORDCHAR, PassChar, 0)
8) GetText = PassWord
为什么老是出错。。。
第6行的Byval是不是该参数按值传递的意思?在delphi中应如何表示???
先谢了!!!
...全文
82 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
zwb666 2004-10-13
  • 打赏
  • 举报
回复
var
...
PassWord:array[0..255] of Char;
begin
FillChar(PassWord,256,#0);
...
SendMessage(接收对象.Handle,WM_GETTEXT,256,Integer(@PassWord));
...
end;
liufuyahong 2004-10-13
  • 打赏
  • 举报
回复
var
...
PassWord:array[0..255] of Char;
begin
FillChar(PassWord,256,#0);
...
SendMessage(接收对象.Handle,WM_GETTEXT,256,Integer(@PassWord));
...
end;
bluearc888 2004-10-13
  • 打赏
  • 举报
回复
多谢各位,我试试。。。
有个朋友说的放这里一下。SendMessage(aHwnd,WM_GETTEXT,256,integer(PassWord[0]))
hsmserver 2004-10-13
  • 打赏
  • 举报
回复
SendMessage(Ihwnd, WM_GETTEXT, 256, val PassWord)

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧