, 12 2017 . 06:28
+
.
Windows 7. . left Shift+left Alt+PrtSc .
procedure TForm1.Button1Click(Sender: TObject);
var
KeyInputs: array of TInput;
KeyInputCount: Integer;
result :Cardinal;
procedure KeybdInput(VKey: Byte; Flags: DWORD);
begin
Inc(KeyInputCount);
SetLength(KeyInputs, KeyInputCount);
KeyInputs[KeyInputCount - 1].Ityp ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83409
