Delphi-Quellcode:
var i:Integer;
keys:array[0..127] of Boolean;
procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end
else
close;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=0;
if keys[VK_Down]=false then form1.canvas.pixels[100,100]:=clred else form1.canvas.pixels[100,100]:=clBtnFace
end;
end.
Es klappt mit einer Taste