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?