example.txt

来自「TPWLView保护你的程序免受察看密码工具的攻击。(有源代码）工作在：D5。作」· 文本 代码 · 共 34 行

After install component you can use it in your applications.

For use our component go to tabshit PWLWORK on the pallete of components and
place TPWLView component on the form of your application.

For get all records from cashe in pwl file use method GET.
You can set property LogToFile in TRUE and set name of same file
in property FILENAME (for example,  data.log ), then all records will be
save in this file. After call GET you all records stored in property
DATALIST ( TStringList type ).  For example you can place it in MEMO:

procedure Button1Click(Sender: TObject);
begin
  PWLView1.Get;
  Memo1.Lines.Assign(PWLView1.DataList);
end;


Also for get records from cashe you can use event  ONNEXTRECORD. This
event activated on every record, which are reading from cashe. 
The index, login and password of current record stored in variables
INDEX, CURNAME and CURPSW. You must save it anywhere. For example, you can
save it in MEMO:

procedure TForm1.PwlView1NextRecord(Sender: TObject);
begin
  Memo1.Lines.Add('Current record is  : '+IntToStr(PwlView1.Index)+' - '+PwlView1.CurName+':'+PwlView1.CurPsw);
end;