Скачать: CL | DM;

Почему неполучается получить кэш. пароли из конс-го приложения ?   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c