Hi ich habe mir eine prozedure gebastelt die eine kleine lightshow auf den Leds auf der Tastatur veranstaltet:
Delphi-Quellcode:
procedure lightshow();
procedure dokeybdInput(vkcode: integer);
begin
keybd_event(vkcode,KEYEVENTF_EXTENDEDKEY or 0,0,0);
keybd_event(vkcode,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;
procedure mylightshow();
var
i: integer;
begin
for I := 0 to 3 - 1 do
begin
dokeybdInput(VK_NUMLOCK);
dokeybdInput(VK_CAPITAL);
dokeybdInput(VK_SCROLL);
sleep(200);
dokeybdInput(VK_NUMLOCK);
dokeybdInput(VK_CAPITAL);
dokeybdInput(VK_SCROLL);
sleep(200);
end;
for I := 0 to 3 - 1 do
begin
dokeybdInput(VK_NUMLOCK);
sleep(125);
dokeybdInput(VK_NUMLOCK);
sleep(125);
dokeybdInput(VK_CAPITAL);
sleep(125);
dokeybdInput(VK_CAPITAL);
sleep(125);
dokeybdInput(VK_SCROLL);
sleep(125);
dokeybdInput(VK_SCROLL);
sleep(125);
end;
for I := 0 to 3 - 1 do
begin
dokeybdInput(VK_NUMLOCK);
sleep(125);
dokeybdInput(VK_NUMLOCK);
sleep(125);
dokeybdInput(VK_CAPITAL);
sleep(125);
dokeybdInput(VK_CAPITAL);
sleep(125);
dokeybdInput(VK_SCROLL);
sleep(125);
dokeybdInput(VK_SCROLL);
sleep(125);
dokeybdInput(VK_CAPITAL);
sleep(125);
dokeybdInput(VK_CAPITAL);
sleep(125);
end;
end;
var
KeyState: TKeyboardState;
isNum, isCAP, isScroll: boolean;
begin
isNum := false;
isCAP := false;
isScroll := false;
GetKeyboardState(KeyState);
if not (KeyState[VK_NUMLOCK] = 0) then
begin
isNum := true;
dokeybdInput(VK_NUMLOCK);
end;
if not (KeyState[VK_CAPITAL] = 0) then
begin
isCAP := true;
dokeybdInput(VK_CAPITAL);
end;
if not (KeyState[VK_SCROLL] = 0) then
begin
isScroll := true;
dokeybdInput(VK_SCROLL);
end;
mylightshow();
if isNum then
dokeybdInput(VK_NUMLOCK);
if isCAP then
dokeybdInput(VK_CAPITAL);
if isScroll then
dokeybdInput(VK_SCROLL);
end;
erst werden alle leds ausgeschaltet dann kommt die lightshow.
Nach dem abspielen werden die alten zustände von num etc wiederhergestellt
ich wollte euch nach weiteren netten (amüsanten) "kompositionen" fragen, vieleicht fällt jemanden ja was ein
ich glaube nicht das das stoff für die codelib ist oder ? wenn doch dann kann den thread ja ein mod verschieben. (danke im voraus)
mfg smallsmoker
edit: licht- und ligth- in lightshow verbessert