blob: 992b09be0f70c707d404f7b152bdb3d850980912 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
uses
bench,sysutils;
var
i : longint;
ps : ansistring;
sticks : int64;
begin
ps:='';
if paramcount>0 then
begin
for i:=2 to paramcount do
ps:=ps+' '+paramstr(i);
sticks:=GetMicroSTicks;
ExecuteProcess(paramstr(1),ps);
writeln(stderr,(GetMicroSTicks-sticks)/1000:0:3,' ms');
end;
end.
|
