VK_ Question

[Incommodious]

How do i make scar do Ctrl+a (select all)?

[Janilabo]

procedure SelectAll; 
var
 a: Byte; 
begin     
 a := CharToVKey('a');
 VKeyDown(VK_CONTROL);
 VKeyDown(a);         
 Wait(40 + Random(30));
 VKeyUp(a);
 VKeyUp(VK_CONTROL);  
end;

begin
 GetClient.Activate;
 Wait(500);
 SelectAll;
end.

[Incommodious]

Thank you very much