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

Question

请教如何将以下的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中应如何表示？？？
先谢了！！！

Answer 1

SendMessage(Ihwnd, WM_GETTEXT, 256, val PassWord)

Answer 2

var
  ... 
  PassWord:array[0..255] of Char;
begin
  FillChar(PassWord,256,#0);
  ...
  SendMessage(接收对象.Handle,WM_GETTEXT,256,Integer(@PassWord));
  ...
end;

Answer 3

var
  ... 
  PassWord:array[0..255] of Char;
begin
  FillChar(PassWord,256,#0);
  ...
  SendMessage(接收对象.Handle,WM_GETTEXT,256,Integer(@PassWord));
  ...
end;

Answer 4

多谢各位，我试试
有个朋友说的放这里一下。SendMessage(aHwnd,WM_GETTEXT,256,integer(PassWord[0]))