Модуль для просмотра паролей

unit Unit1;
interface
uses
  Windows, SysUtils, Classes, Forms, ShellAPI, Controls, StdCtrls;
type
  TForm1 = class(TForm)
    ListBox: TListBox;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    hMPR: THandle;
  end;
 
var
  Form1: TForm1;
const
  Count: Integer = 0;
function WNetEnumCachedPasswords(Имя функции lp: lpStr; // должен быть NIL
w: Word; // должен быть 0
b: Byte; // должен быть $FF
PC: PChar; // адрес функции, в которую вернутся пароли
dw: Dword // должен быть 0): Word; stdcall;
implementation
{$R *.DFM}
// external mpr –имя динамической библиотеки, в котором находится эта функция , NetEnumCachedPasswords –имя функции в данной библиотеке
function WNetEnumCachedPasswords (lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name 'WNetEnumCachedPasswords';
//объявление  WinPassword –нестандартной структуры
type
 PWinPassword = ^TWinPassword;
 TWinPassword = record
   EntrySize: Word;
   ResourceSize: Word;
   PasswordSize: Word;
   EntryIndex: Byte;
   EntryType: Byte;
   PasswordC: Char;
  end;
// WinPassword –нестандартная структура, которая объявляется пользователем
function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall;
var
  Password: String;
  PC: Array[0..$FF] of Char;
begin
  inc(Count);
 
  Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
  PC[WinPassword.ResourceSize] := #0;
  CharToOem(PC, PC);
  Password := StrPas(PC);
// в PasswordC будет находиться строка, содержащая имя пользователя и пароль. ResourceSize –размер пароля. Пароль хранится в DOC кодировке. Для того, чтобы его увидеть , надо его перевести windows-кодировку с помощью функции  CharToOem(PC, PC), где первый параметр – указывает что надо перекодировать, а второй – результат перекодировки.
  Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword. ResourceSize);
  Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
  PC[WinPassword.PasswordSize] := #0;
  CharToOem(PC, PC);
  Password := Password + ': ' + StrPas(PC);
 
  Form1.ListBox.Items.Add(Password);
  Result := True;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
   begin
    Application.MessageBox('А не могу я прочитать пароли.', 'Error', mb_Ok or mb_IconWarning);
    Application.Terminate;
   end
  else
   if Count = 0 then
    ListBox.Items.Add('Пароля нету');
end;
end.