MSN ablakrezgetés figyelése Delphi-ből

MSN ablakrezgetés figyelése Delphi-ből
2011-01-09T22:25:49+01:00
2011-01-10T22:51:03+01:00
2022-11-20T11:10:39+01:00
KT93
Sziasztok!

Azt szeretném megoldani Delphi-ben, hogy amikor msn-en ablakrezgetést kapok vagy küldök valakinek akkor történjen valami, például jelenjen meg egy üzenetablak.
Azt nem tudom megoldani hogy figyeljem az msn ablakrezgését.
ui.: sosem figyeltem még más alkalmazást Delphi-ből tehát légyszi részletesen írjátok le a megoldást :)
Mutasd a teljes hozzászólást!
Kicsit hasonló lesz.

Megnyitottam egy Jegyzettömböt, melynek mainform captionja 'Névtelen - Jegyzettömb'.

A Delphi alkalmazás Button1.Click eseménye elkéri a jegyzettömb ablak handle-ját, és ennek alapján az ablak pozicióját. (Mozgassuk el Jegyzettömböt, és ismét nyomjuk le Button1-et: látható, hogy az ablak "elmozdult".
((Erre alapozva a "rezgést", (mint az ablak elmozdulását) pl. másodpercenként ellenőrizhetjük, (pl. egy Timer felhasználásával) , és ha vátozás áll be, akkor MessageBox.))

procedure TForm1.Button1Click(Sender: TObject); var WHandle: THandle; WRect: TRect; begin WHandle:=FindWindow(nil, 'Névtelen - Jegyzettömb'); if WHandle<>0 then begin GetWindowRect(WHandle, WRect); label1.Caption:=inttostr(WRect.Top); end; end;
Mutasd a teljes hozzászólást!

  • Szia!!

    Talán úgy oldanám meg, hogy hookolnám (a program neve alapján figyelném) az adott messenger ablakot, és elmenteném az x,y koordinátáit, majd ha változás áll be (rezgés) akkor futtatnék egy folyamatot...

    (Lehet hogy nagy vonalakban írtam le, és lehet h van jobb megoldás is, de most ez jutott eszembe..)

    TheTester'
    Mutasd a teljes hozzászólást!
  • Ki tudod fejteni bővebben?
    A hook-os résznél leakadtam, nem tudok hookolni
    Mutasd a teljes hozzászólást!
  • Kicsit hasonló lesz.

    Megnyitottam egy Jegyzettömböt, melynek mainform captionja 'Névtelen - Jegyzettömb'.

    A Delphi alkalmazás Button1.Click eseménye elkéri a jegyzettömb ablak handle-ját, és ennek alapján az ablak pozicióját. (Mozgassuk el Jegyzettömböt, és ismét nyomjuk le Button1-et: látható, hogy az ablak "elmozdult".
    ((Erre alapozva a "rezgést", (mint az ablak elmozdulását) pl. másodpercenként ellenőrizhetjük, (pl. egy Timer felhasználásával) , és ha vátozás áll be, akkor MessageBox.))

    procedure TForm1.Button1Click(Sender: TObject); var WHandle: THandle; WRect: TRect; begin WHandle:=FindWindow(nil, 'Névtelen - Jegyzettömb'); if WHandle<>0 then begin GetWindowRect(WHandle, WRect); label1.Caption:=inttostr(WRect.Top); end; end;
    Mutasd a teljes hozzászólást!
  • Működik. Köszi szépen. Most már menni fog a rezgés.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd