Как управлять PGP

← →
Privet10 (2004-04-18 18:59) [0]

Hi! Необходимо из моей программы управлять PGP (программа шифрования), а точнее чтобы при подключении зашифрованного файла подставляла пароль автоматически. Вся проблема в том, что Хандл окна редактирования я нахожу и передаю ей мессагу WM_SetText, на которую PGP ни как не реагирует, т.е. текст в него не вставляется. Плиз, помогите в чем камень, пример кода ниже.

//нашел главное окно PGP
Wnd := FindWindow(nil, "Enter Passphrase");
//нашел его потомка
Wnd := GetWindow(Wnd, GW_CHILD);

while Wnd>0 do
begin
Wnd:= GetNextWindow(Wnd, GW_HWNDNEXT);
GetClassname(Wnd, Control, SizeOf(Control));
if String(Control)="RichEdit20W" then break;
end;

SendMessage(Wnd, WM_SetText, 0, LParam(Pchar("11111111")));

← →
Shopot © (2004-04-20 22:37) [1]

Если хочешь что-нибудь взломать, то бери SoftIce. Забудь про свою программу подстановки паролей.

Как управлять PGP Найти похожие ветки