Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.029 c
1-86028
karan1
2002-12-16 16:05
2002.12.26
помогите преобразов. String


1-85886
rooman1
2002-12-15 22:57
2002.12.26
кто нибуть подскажет


3-85861
KA_
2002-12-05 11:15
2002.12.26
Ошибка Interbase-сервера


4-86214
lesa
2002-11-11 18:20
2002.12.26
Как запустить DOS приложение в окне с помощью CreateProcess?


8-86040
Dad Evil
2002-09-09 14:17
2002.12.26
обрезка TBitmap





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский