Advertisement
mixster

mixster

Jan 14th, 2009
234
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.31 KB | None | 0 0
  1. program New;
  2. procedure AutoSave;
  3. begin
  4.   KeyDown(VK_SHIFT);
  5.   Wait(10);
  6.   KeyDown(VK_CONTROL);
  7.   Wait(10);
  8.   KeyDown(Ord('A'));
  9.   Wait(50);
  10.   KeyDown(Ord('A'));
  11.   Wait(10);
  12.   KeyDown(VK_CONTROL);
  13.   Wait(10);
  14.   KeyDown(VK_SHIFT);
  15. end;
  16.  
  17. begin
  18.   Writeln('begin!');
  19.   AutoSave;
  20.   Writeln('end!');
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement