,, gebruikt op een manier die ziet er misschien uit als een Hacker kan tot wijziging van de algemene boodschap, veranderen de icoon, redacteur van de omvang van de knop,, wacht, dat is de gedachte achter de is het creëren van een aangepaste Speciaal bericht sturen naar rij * * * * * * * * * * * * * *, een boodschap.In de e - mail, je haalt het raam aan de (als het berichtenvak) of in de vorm van (in het geval van een inputbox /inputquery /messagedlg) te wijzigen en je alles wat je wilt.Ik twee voorbeelden geven, een gemeenschappelijke API - berichten en een andere inputquery.. In het eerste geval: je moet veranderen, ja /neen knop regelmatig de naam standaard titel, het type, de     een gebeurtenis = (platform),         button1 knop, uitvoering van de roterende lettertype:;         (afzender: TObject);    , particuliere,         programma wmhackbox (VAR nieuws: tmessage); informatie wm_user + 1025;,     eindigt; uitvoering van programma 's,...,..., een gebeurtenis plaatsvindt. Om te draaien en het lettertype (afzender: TObject, beginnen,    ); onze boodschap /op de hoogte,     PostMessage (handvat, wm_user + 1025, 0, 0); ///////  naam noemen,  , toepassing van    . Naam (ik "stom.", "mijn aanvraag, mb_yesno of mb_iconinformation);,, het einde van de procedure; zaak wmhackbox gebeurt. - tmessag nieuws:E); var, de     H:hwnd; beginnen,     /boodschap, laten we de hand terug,     h = FindWindow (wc_dialog, "de aanvraag",  ; /////// ) of dit wel de juiste boodschap, laten we het   te wijzigen,   als getParent (H) = toepassing na de behandeling te beginnen,  .  ,         setdlgitemtext (H - id_yes, "Ik & is het ermee eens dat");    ,  ,   setdlgitemtext (H -, id_no, "Ik & niet eens"), aan het einde van het    ;;;,, luister, als je het messagedlg, dit niet een gewone API - de naam maar dynamische vorm van Delphi.见第二例。，，，第二例：你需要改变编辑一个inputquery属性，例如PasswordChar，类型，  发生一事件=类（平台），    Button1：吧；，    程序实现旋转字体（发件人：TObject）；，  私人，    程序wmhack（VAR的消息：tmessage）；信息wm_user + 1024；，  端；，…，实现…，const，  acaption = '标题'；，程序发生一事件。实现旋转字体（发件人：TObject）；，开始，  PostMessage（手柄，wm_user + 1024，0，0）；，  InputBox（acaption，“迅速”，“默认”）；，，程序结束；发生一事件。wmhack（VAR的消息：tmessage）；，VaR，  我：整数；，  J：整数；，开始，  我：= 0 screen.formcount-1做，    如果屏幕。形式[我]。标题acaption然后，    开始 ,           J:= 0 scherm. Vorm [I]. Controlcount-1 doen,                 als scherm. Vormen van [het] [J]  . Controle is               Tedit dan beginnen,                     Tedit (Ik scherm. Vorm [] [J]). De controle van&#";". PasswordChar:=,                     Tedit (scherm. Vormen van [het]. [J]). Alle      ;,               uit,        ;         voorbij, voorbij, voorbij        ;,,,