Mega Code Archive
[] Asterisks passwords[daha kısa bir kod]
<![CDATA[
//Forma bir timer ekleyin.
procedure TForm1.Timer1Timer(Sender: TObject);
var
P : TPoint;
buff : Array [0..255] of char;
begin
GetCursorPos(P);
If SendMessage(WindowFromPoint(p),EM_GETPASSWORDCHAR,0,0) = 0 then Exit;
SendMessage(WindowFromPoint(P),WM_GETTEXT,255,Integer(Addr(buff)));
Edit1.Text := buff;
end;
dijwar@turk.net
]]>