Lásd a jelszó mögött csillag

Nem iszom a kannából - lesz egy vízforraló.

Létrehozása és használata DLL:

De mit lehet tenni. Ma van, hogy módosítsa a tervet, és végezze el a kéréseket. Ebben a számban a kódolás mindkét cikket épülnek a számos kéréseket.

Ebben a példában írtam egy DLL fájl, amely most festett a szemed előtt. Semmi különös vizuális nem teszünk ma. Csak kódoló és semmi mást. By the way, mentem Delphi 6, hogy minden forrás most írt meg. Ha még mindig ragadt Delphi 5, majd rohant a piacra vezetni egyenesen az ón.

Először hozzon létre egy új projektet. De nem az, amelyet használtak, és DLL projekt könyvtárban. Ehhez válassza menü Fájl-> Új-> Egyéb ... (Delphi 5 egyszerűen File-> New). egy ablak nyílik meg előtted. Itt DLL Wizard elemet, és kattintson rá duplán. Delphi létrehoz egy üres projekt DLL. Azonnal nyomja Pimp «Mentés», hogy mentse a projektet. Ennek nevét, adja meg «hackpass», ugyanaz lesz a neve dll fájlt.

Most törli az összes szöveget, ami meg van írva a Delphi és írd

A legalapvetőbb a DLL - eljárást RunStopHook. Elhaladt egyedüli megoldásnak. Ha ez igaz, akkor én regisztrálni egy csapda, hogy kifogja az összes Windows üzenetek is. Ez használ a SetWindowsHookEx funkciót. Ez a funkció négy paraméter:

• Trap típusát. Van WH_GETMESSAGE, mely fogások az összes üzenetet.
• A mutató arra a funkcióra, amelyet el kell küldeni a Windows üzeneteket.
• A mutató az alkalmazást.
• Flow Identifier. Ha nulla, akkor a jelenlegi használatban.

A második paraméter a neve van SysMsgProc funkciót. Azt is leírták a dll. Vessünk egy pillantást rá.

Csapdák hozzászólás:

Az első sorban hozok üzenetet fogott a többi csapdákat telepíteni a rendszert CallNextHookEx. Aztán egy ablak generált az esemény, és ellenőrizze az esemény típusát. Ha volt egy patkány bal gombbal kattint, és tartott Pimp vezérlés, távolítsa el a csillag.

Most írni egy programot, amely betölti a DLL és futtatni egy csapda. Ehhez hozzon létre egy új projektet (mint már létre). Menj a forráskódot és keresse meg a var. Közel meg kell írni valamit, mint «Form1: TForm1». Töltse ki itt a sort:

Ebben a sorban, elmagyarázom Delphi, amely függvénye RunStopHook, ami írt nekem hackpass.dll könyvtár és a index = 1 Itt, ezen index és a Delphi a függvényt. Akkor persze, és név szerint, de ez lesz egy kicsit lassabb.

Most hozzon létre egy eseménykezelő az űrlap OnShow és írd oda: