mouse and exec
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
uses dos,mouse,crt,sysutils;
begin // fpc Win32 2005/04/18, work fine 1.99 on winme, but is bad under winXp (NO service pack)
write(0);
initmouse;
write(1);
showmouse;
write(2);
SwapVectors;
Exec(GetEnv('comspec'),''); // problem is here ...
SwapVectors;
sleep(1000);
writeln(getmouseX); // return 0, always
sleep(1000);
writeln(getmouseX); // return 0, always
showmouse;
sleep(1000);
write(3);
readln;
writeln(getmouseX); // return 0, always
write(4);
readln;
end.
Additional information:
Reporter: Salvatore Licciardi
EMail: turylicciardi at tiscalinet dot it
Mantis conversion info:
- Mantis ID: 5861
- OS: Win32
- Version: 1.9.9