How to use GetWindowText() correctly?

[was]

Hello, I use GetWindowText() to get Application's title, but Non English characters cannot be displayed.

[paweld]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   szText: WideString;
4. begin
5.   Edit1.Text := Caption;
6.  
7.   if GetWindowTextW(GetForegroundWindow, PWideChar(szText), GetWindowTextLengthW(GetForegroundWindow)) > 0 then
8.     Edit2.Text := szText;
9. end;

[PascalDragon]

@paweld: you should not mix PWideChar and WideString like this, cause GetWindowTextW won't allocate the buffer for you. So you should do (not tested):

Code: Pascal  [Select][+][-]

1. SetLength(szText, GetWindowTextLengthW(GetForegroundWindow));
2. if GetWindowTextW(GetForegroundWindow, PWideChar(szText), Length(szText)) > 0 then

[paweld]

@PascalDragon: thank you very much for the explanation

[was]

@paweld, @PascalDragon: thank you very much.