na dann ist es ja noch einfacher.
Im Wormhuntertutorial ist es eh super beschrieben.
schau es dir einfach einmal an
Delphi-Quellcode:
if GetKeyState(VK_LEFT) < 0 then keys := keys + [kyLeft];
if GetKeyState(VK_RIGHT) < 0 then keys := keys + [kyRight];
if GetKeyState(VK_UP) < 0 then keys := keys + [kyUp];
if GetKeyState(VK_DOWN) < 0 then keys := keys + [kyDown];
//dann mach alles auch mit "W"S"D"A"