SendInputHelper - Ein Wrapper, der den Umgang mit SendInput vereinfacht

[WladiD]

Habe soeben ein minimalistisches Beispiel erstellt, mit dem das Windows Flip 3D aktiviert und für 2 Sekunden durch die geöffneten Fenster geflippt wird:

Delphi-Quellcode:

program WindowsFlip;

{$APPTYPE CONSOLE}

uses
    SysUtils, Windows, SendInputHelper;

var
    cc:Integer;
begin
    with TSendInputHelper.Create do
    begin
        AddShift([ssWin], TRUE, FALSE);
        for cc:=1 to 20 do
        begin
            AddVirtualKey(VK_TAB, TRUE, FALSE);
            AddDelay(100);
        end;
        AddVirtualKey(VK_TAB, FALSE, TRUE);
        AddVirtualKey(VK_ESCAPE);
        AddShift([ssWin], FALSE, TRUE);
        Flush;
        Free;
    end;
end.

mfg