| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему неполучается получить кэш. пароли из конс-го приложения ? [D6, Win95/98, WinXP]
delpher_gray © (2002-12-08 15:04:00)Господа Делферы !
Мучился я мучился с этой проблемой, но никак не получается сделать рабочую прогу :-( Вот код моей консольно проги: прога должна записать пароли вstr, а вместо этого она компилируется, но при загрузке выдаёт ошибку...
program Pass;
uses
Windows,
SysUtils,
Forms;
var
count: integer;
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name "WNetEnumCachedPasswords";
type
PWinPassword = ^TWinPassword;
TWinPassword = record
EntrySize: Word;
ResourceSize: Word;
PasswordSize: Word;
EntryIndex: Byte;
EntryType: Byte;
PasswordC: Char;
end;
function AddPassword(WinPassword: PWinPassword;dw: Dword): LongBool; stdcall;
var
buffer: Array[0..255] of Char;
str:string;
i:integer;
begin
inc(Count);
Move(WinPassword.PasswordC, buffer, WinPassword.ResourceSize + WinPassword.PasswordSize);
for i:=0 to WinPassword.ResourceSize-1 do
if buffer[i] > chr(31) then str:=str+buffer[i];
str:=str+" : ";
for i:=WinPassword.ResourceSize to WinPassword.ResourceSize+WinPassword.PasswordSize-1 do
if buffer[i] > chr(31) then str:=str+buffer[i];
Result := True;
end;
begin
if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
Application.Terminate;
end.
Заранее благодарен.
Polevi (2002-12-17 15:39:00) [1]>Мучился я мучился с этой проблемой
ты еще помучайся, глядишь и проблема исчезнет
delpher_gray (2002-12-17 15:29:00) [2]Никто не знает ???
delpher_gray (2002-12-12 17:28:00) [3]Никто не знает ???
delpher_gray (2002-12-10 15:33:00) [4]Тут не в ошибке проблемма, а в коде !
Если писать не косольное при-е, то перед implementation есть функция:function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name "WNetEnumCachedPasswords";, а после implementation почти точно такая же... Нафиг она нужна, и если уж нужна, то куда её втыкать ? :-)))
Вопрос не сложный.
Заранее благодарен !
Alexander_K (2002-12-09 15:45:00) [5]Какую хоть ошибку-то выдает?
delpher_gray (2002-12-09 14:46:00) [6]Никто не знает ???
| |
