ユーザーにパスワードの入力を求めたい。VCLが実行されているメインスレッドとは別のスレッドでパスワードが必要になることがあるため、メインウィンドウにメッセージを送信してパスワードを要求しようとしました。次に、メインウィンドウがユーザーに尋ねます。
ユーザーに質問する方法:
procedure TMainForm.WMGetPassword(var Msg: TMessage);
var
Password: String;
begin
if QueryPassword(Password) then // function QueryPassword(out Password: String): boolean;
begin
Password := Password + #0; // Add #0-Terminator
Move(Password[1], Msg.wParam, Length(Password) * sizeOf(Char)); // Copy the String in my buffer
Msg.Result := 1;
end
else
begin
Msg.Result := 0;
end;
end;
メインウィンドウに尋ねる方法:
var
PasswordBuffer: PChar;
Password: String;
begin
PasswordBuffer := AllocMem(100 * sizeof(Char));
PasswordResult := SendMessage(MainFormHWND, WM_GetPassword, Integer(PasswordBuffer), 0);
Result := (PasswordResult <> -1);
if not Result then
Exit;
SetString(Password, PasswordBuffer, 100);
ShowMessage(Password);
end;
しかしPassword
、PasswordBuffer
その後は空になります。私は何が間違っているのですか?