Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];
Вниз
Почему неполучается получить кэш. пароли из конс-го приложения ? Найти похожие ветки
← →
delpher_gray (2002-12-08 15:04) [0]Господа Делферы !
Мучился я мучился с этой проблемой, но никак не получается сделать рабочую прогу :-( Вот код моей консольно проги: прога должна записать пароли в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.
Заранее благодарен.
← →
delpher_gray (2002-12-09 14:46) [1]Никто не знает ???
← →
Alexander_K (2002-12-09 15:45) [2]Какую хоть ошибку-то выдает?
← →
delpher_gray (2002-12-10 15:33) [3]Тут не в ошибке проблемма, а в коде !
Если писать не косольное при-е, то перед implementation есть функция:function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name "WNetEnumCachedPasswords";, а после implementation почти точно такая же... Нафиг она нужна, и если уж нужна, то куда её втыкать ? :-)))
Вопрос не сложный.
Заранее благодарен !
← →
delpher_gray (2002-12-12 17:28) [4]Никто не знает ???
← →
delpher_gray (2002-12-17 15:29) [5]Никто не знает ???
← →
Polevi (2002-12-17 15:39) [6]>Мучился я мучился с этой проблемой
ты еще помучайся, глядишь и проблема исчезнет
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
