FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda HotKey en DLL ...
Hola que tal Tengo Un problema en este codigo espero q m ayuden no tengo muxa nocion del hotkey y tengo problemas creandolo
aver si le dan una hojeada y m dicen en q es mi error Código:
library Tutorial; uses Windows; const CellAddress1:dword=$353BDB80; CellAddress2:dword=$353D1220; CellAddress3:dword=$353D1280; CellArray1:Array[0..95] of Byte = ($C8,$78,$3D,$35,$00,$00,$00,$00,$CC,$78,$3D,$35,$00,$00,$00,$00,$58,$BB,$3B,$35,$01,$00,$00,$00,$EC,$78,$3D,$35,$01,$00,$00,$00,$CC,$75,$2F,$35,$48,$93,$2D,$35,$A4,$04,$00,$00,$08,$BF,$3B,$35,$90,$A2,$0F,$35,$E0,$9F,$0F,$35,$F0,$9F,$0F,$35,$00,$A0,$0F,$35,$20,$A0,$0F,$35,$30,$A0,$0F,$35,$40,$A0,$0F,$35,$10,$A0,$0F,$35,$01,$00,$00,$00,$FF,$FF,$FF,$FF,$50,$A5,$0F,$35,$48,$93,$2D,$35); CellArray2:Array[0..95] of Byte = ($C8,$78,$3D,$35,$00,$00,$00,$00,$CC,$78,$3D,$35,$00,$00,$00,$00,$58,$BB,$3B,$35,$01,$00,$00,$00,$EC,$78,$3D,$35,$01,$00,$00,$00,$CC,$75,$2F,$35,$48,$93,$2D,$35,$A4,$04,$00,$00,$08,$BF,$3B,$35,$90,$A2,$0F,$35,$E0,$9F,$0F,$35,$F0,$9F,$0F,$35,$00,$A0,$0F,$35,$20,$A0,$0F,$35,$30,$A0,$0F,$35,$40,$A0,$0F,$35,$10,$A0,$0F,$35,$01,$00,$00,$00,$FF,$FF,$FF,$FF,$50,$A5,$0F,$35,$48,$93,$2D,$35); CellArray3:Array[0..95] of Byte = ($C8,$78,$3D,$35,$00,$00,$00,$00,$CC,$78,$3D,$35,$00,$00,$00,$00,$58,$BB,$3B,$35,$01,$00,$00,$00,$EC,$78,$3D,$35,$01,$00,$00,$00,$CC,$75,$2F,$35,$48,$93,$2D,$35,$A4,$04,$00,$00,$08,$BF,$3B,$35,$90,$A2,$0F,$35,$E0,$9F,$0F,$35,$F0,$9F,$0F,$35,$00,$A0,$0F,$35,$20,$A0,$0F,$35,$30,$A0,$0F,$35,$40,$A0,$0F,$35,$10,$A0,$0F,$35,$01,$00,$00,$00,$FF,$FF,$FF,$FF,$50,$A5,$0F,$35,$48,$93,$2D,$35); Procedure Cell1; Procedure Cell2; Procedure Cell3; var j3:Integer; var j2:Integer; var j:Integer; var x:cardinal; Begin while (true) do Begin if GetAsyncKeyState(vk_f1)<>0 then Begin VirtualProtectEx(GetCurrentProcess,ptr(CellAddress1),96,PAGE_EXECUTE_READWRITE,nil); for j := 0 To Length(CellArray1) do PByte(CellAddress1 + j)^:=CellArray1[j]; end; Begin VirtualProtectEx(GetCurrentProcess,ptr(CellAddress2),96,PAGE_EXECUTE_READWRITE,nil); for j2 := 0 To Length(CellArray2) do PByte(CellAddress2 + j2)^:=CellArray2[j2]; end; Begin VirtualProtectEx(GetCurrentProcess,ptr(CellAddress3),96,PAGE_EXECUTE_READWRITE,nil); for j3 := 0 To Length(CellArray3) do PByte(CellAddress3 + j3)^:=CellArray3[j3]; end; Begin CreateThread(nil,0,@Cell1,nil,0,x); sleep(100); CreateThread(nil,0,@Cell2,nil,0,x); sleep(50); CreateThread(nil,0,@Cell3,nil,0,x); sleep(30); end; end; end; end. pero la verdad no tengo idea d por q m sale ... aver si m ayudan ^^ aki una img del error Última edición por NoxOner fecha: 14-04-2009 a las 20:55:39. |
#2
|
||||
|
||||
Cada begin debe tener su correspondiente end; cuéntalos para ver cuál hace falta. Indentar el código facilita evitar este tipo de errores.
// Saludos |
#3
|
||||
|
||||
He roman, ta gueno pro ste hot"k" !va con APIPI ^^
|
#4
|
||||
|
||||
Sí, bueno. Hoy venía con paciencia y pude aplicar el filtro correspondiente
// Saludos |
#5
|
|||
|
|||
uhm osea mi problema es el end pero kiero mtb q vean si el hotkey esta bien declarado
=) uhm tmb si el sleep esta bien dond lo puc ?? edited: Me akabo de dar kuenta q los end no es el problema creo q es la sintays aver si m pueden ayudar en esto Última edición por NoxOner fecha: 14-04-2009 a las 20:59:52. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Uso de HotKey | Cecilio | Varios | 3 | 06-06-2014 16:23:09 |
Delphi - HotKey de aplicación externa | fdanielc | Lazarus, FreePascal, Kylix, etc. | 2 | 03-12-2008 21:12:11 |
ayuda usando solo la tecla ALT como hotkey | lostprophets | Varios | 2 | 21-01-2008 06:07:17 |
Cuantas HOTKEY se pueden registrar simultaneamente? | JuanErasmo | API de Windows | 12 | 07-04-2006 20:27:51 |
capturar hotkey | cahosoft | Varios | 2 | 31-01-2005 18:17:04 |
|