[lysyuk]

когда-то здесь была поставленная задача....но на этом форуме ее не решили(....так что смысл здесь оставлять посты бесполезно....

[M.A.D.M.A.N.]

Я бы с дампа брал.
Sendmessage(h,WM_GETTEXT,20,Integer(@s));
Чо за двадцатка? Айдент контрола?

[NumLock]

Сообщение от M.A.D.M.A.N.

Чо за двадцатка?

количество копируемых символов, хотя буфер s:array [0..255] of char;

[M.A.D.M.A.N.]

Пардон, затупил
Еще как вариант - внедрять длл в тимвьювер и перехватывать GetDlgItemText.

[lysyuk]

А можно как-то програмно помочь..а не только словами....пожалуйста)! как мне перейти на второй едит?

[M.A.D.M.A.N.]

Вот пример перехвата МэссэджБокса, переделай под свое
http://www.wasm.ru/pub/21/files/adwarebox.rar (в архиве экзешник, антивирь может заругаться).

[Pyro]

этой функцией можно

Код:

{$R *.dfm}

function GetClass(h: hWnd): string;
var
  ClassName: array[0..255] of char;
begin
  FillChar(ClassName, sizeof(ClassName), 0);
  GetClassName(h, ClassName, 255);
  result := strpas(ClassName);
end;


var
  FoundCount: Integer;
  FindNum: integer;
  FindWho: string;
  FoundHandle111: Cardinal;                                                   //0-last
function EnumFor(ParentHandle: Cardinal; TargetClass: string; index_from_1: Byte=0): Cardinal;
  function Enumka(h: hWnd; p: Pointer): BOOL; stdcall;
  begin
    result := true;
    if FindNum <> 0 then
    begin
      if GetClass(h) = FindWho then
        inc(FoundCount);
      if FoundCount = FindNum then
      begin
        FoundHandle111 := h;
        result := false;
      end
    end else
    if GetClass(h) = FindWho then
      FoundHandle111 := h
  end;
begin
  FindWho := TargetClass;
  FindNum := index_from_1;
  FoundCount := 0;
  FoundHandle111 := INVALID_HANDLE_VALUE;
  EnumChildWindows(ParentHandle, @Enumka, 0);
  result := FoundHandle111;
end;

[Страдалецъ]

Я вообще не понимаю зачем это делать для тимки? У него для каждой новой сессии генерится новый пароль. Какой смысл их куда-то сохранять?

[lysyuk]

Сообщение от Pyro

этой функцией можно

Код:

var
  FoundCount: Integer;
  FindNum: integer;
  FindWho: string;
  FoundHandle111: Cardinal;                                                   //0-last     
function EnumFor(ParentHandle: Cardinal; TargetClass: string; index_from_1: Byte=0): Cardinal;
  function Enumka(h: hWnd; p: Pointer): BOOL; stdcall;
  begin
    result := true;
    if FindNum <> 0 then
    begin
      if GetClass(h) = FindWho then
        inc(FoundCount);
      if FoundCount = FindNum then
      begin
        FoundHandle111 := h;
        result := false;
      end
    end else
    if GetClass(h) = FindWho then
      FoundHandle111 := h
  end;                                                                 
begin
  FindWho := TargetClass;
  FindNum := index_from_1;
  FoundCount := 0;
  FoundHandle := INVALID_HANDLE_VALUE;
  EnumChildWindows(ParentHandle, @Enumka, 0);
  result := FoundHandle111;
end;

А ЧТО ОНА ДЕЛАЕТ?))

[NumLock]

Сообщение от Страдалецъ

Какой смысл их куда-то

в корыстных целях отправлять себе на ящик)

[lysyuk]

бла-бла-бла

[Pyro]

как перебрать все елементи..

это и делает

[lysyuk]

))) бла-бла-бла

[lysyuk]

Тема закрыта..вопрос решился на другом форуме удаляйте тему

[Страдалецъ]

Сообщение от NumLock

в корыстных целях отправлять себе на ящик)

так в том и непонятка. Ну получит он пароль текущей сессии, но толку-то от него, если он разовый? В следующий раз он уже будет совсем другим.