Home

Page 115
Page 115
background image

108 Глава 3

f$R

function

 w: Word; b: Byte; PC: PChar;

dw:

 Word; external

 name 'WNetEnumCachedPasswords';

type

PWinPassword =

TWinPassword  record

EntrySize: Word;

 Word;

PasswordSize: Word;

 Byte;

PasswordC: Char;

end;

function

 PWinPassword; dw: DWord):

stdcall;

Password: String;
PC:

 of Char;

begin

 PC,

 ;

 #0;

 PC);

Password

 StrPas(PC);

 PC,

 +

 PC,

 #0;

 PC);

Password

 Password + ': ' + StrPas(PC);

Result := True;

end;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.