InputBox und PasswordChar

[Tortus]

Hi,

ich verwende folgenden Code, um mein Programm mit einem Passwort zu versehen:

Delphi-Quellcode:

begin
  if InputBox('Passwort','Bitte das Passwort eingeben','') <> 'test' then
  begin
    Showmessage('Falsches Passwort!');
    Application.Terminate;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Aus DIESEM THREAD hab ich folgenden Code:

Delphi-Quellcode:

wnd :=  FindWindow('TForm', 'Passwort');
wnd :=  FindWindowEx(wnd, 0, 'TEdit', nil);
if wnd <> 0 then
begin
  SendMessage(wnd, EM_SETPASSWORDCHAR, '*', 0);
end;

Nur weiß ich jetzt leider nicht, wo im ersten Code-Schnippel ich jetzt den zweiten Code-Schnippel einsetzen muss.
Wenn ich es vor der IF-Abfrage mache, gibt es ja noch keine Inputbox, und wenn ich es nach der IF-Abfrage einsetze, is es ja schon zu spät
Könnt ihr mir da nen Tipp geben? Muss ich womöglich mitm abfragen, bis die Box da ist?
Oder geht das garnicht, und ich muss nen komplett eigenen InputBox-Dialog malen?