TEdit Tastatureingaben abfangen

[cookie22]

hallo,

in meinem programm möchte ich einhalbwegs sicheres password edit benutzen.

ich versuche nun die tastatureingabe abzufangen und die ankommenden keys in einen string zu speichern, ausserdem möchte ich gleichzeit halt die bekannten sternchen ins edit schreiben?

Delphi-Quellcode:

procedure TForm1.EditWndProc(var Message: TMessage);
var
  password: string
begin
  if (Message.Msg = WM_KEYUP) then
  begin
     s := s + '*';
     edtPwd.Text := s; // hier wird immer kurz das eingegebene zeichen angezeit
     password := ? // hier muss ich an die keys kommen aber wie?
     Message.Result := 1;
  end else
    FOldEditProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldEditProc := edtPwd.WindowProc;
  edtPwd.WindowProc := EditWndProc;
end;

soweit bin ich schonmal. meine frage ist jetzt, wie komm ich an die keys? wenn ich versuche das sternchen so zu setzen, wird immer das eingegebene zeichen noch kurz angezeigt. wie kann ich das verhindern?

danke im voraus.

MfG,
cookie

[teebee]

Schau Dir mal die Eigenschaft PasswordChar von TEdit an.

[cookie22]

genau das möchte ich ja nicht benutzen, weil man ohne probleme mit tools wie winspy and den inhalt des edits kommt.

[Satty67]

Message.WParam & LParam wird wohl den Tastencode/status enthalten.

Aber Du unterbrichst ja nur die Botschaft zum Edit. Davor kann die trotzdem abgefangen werden. Windows schickt die Botschaft vom Tastaturtreiber ja an die Anwendung mit dem Focus. Abgefangen wird von Spy-Programmen dazwischen und Du arbeitest nur innerhalb Deiner Anwendung (und was ist mit KeyDown, KeyPress?).

Sieht auch blöd aus, wenn der Cursor immer an Pos1 im TEdit geschickt wird, Delete/Entf und wiederholte Tasten musst Du auch behandeln.

[DeddyH]

Man könnte sich ja einmal den Source dieser Komponente anschauen, die soll so etwas können.

[cookie22]

die komponete hilft mir leider nicht weiter. ich möchte zwischendurch tastenanschläge senden um so keylogger zu verwirren. darum muss es auf diese art gehen.