Есть ехе, которое я тестил на 4 машинах и на одной из них, по симптомам, нет прав админа. не проходит данный кусок
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | procedure KeyBoardClick(Key: Byte ; Step: Integer ; Loop: Integer = 1 );
var
i: Integer ;
begin
for i := 1 to Loop do
begin
keybd_event(Key, 0 , 0 , 0 );
SleepEx(Step, True );
keybd_event(Key, 0 , KEYEVENTF_KEYUP, 0 );
end ;
end ;
|
и в тоже время проходит
Код:
1 2 3 | Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN,
0 , 0 , 0 , 0 );
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0 , 0 , 0 , 0 );
|
OS win7 x64
пробовал и от админа через пр.клик, и по свойствам ярлыка - без результа.
Даже отключение UAC. Если после отключения не пошло, значит ли это что не в правах дело?