Ошибка 5, отказано в доступе (помогите вылечить)

[Rec0il]

Привет программисты!

На форме таймер с кодом:

var mousex,mousey:integer;

begin
if (Mouse.CursorPos.X<2) and (Mouse.CursorPos.Y<2) then
begin
Form1.Align:=alLeft;
        Form1.Left:=0;
end;

   getcursorpos(point);
   MouseX:=point.X;
   MouseY:=point.Y;

 if (mousex<form1.left)or(mousex>form1.left+form1.Width) or (mousey<form1.top)or(mousey>form1.top+form1.Height) then
   begin
     if GetAsyncKeyState(VK_LBUTTON)<>0 then
      begin
         Form1.Align:=alNone;
         Form1.Left:= -400;
      end;
     end;
   end;

Если курсор в верхнем углу, форма видна юзеру. Если кликнули в не формы, форма принимает положение за приделами экрана.

Ошибка появляется только тогда, когда пытаюсь запустить любую другую программу с админ правами. То-есть конкретно в то время, когда экран становится темнее и появляется окошко, с подтверждением запуска от имени админа. В это время появляется данная ошибка.


Что посоветуете делать ?

[Iron Monk]

try - except

[Rec0il]

Сообщение от Iron Monk

try - except

Не помогает.
Пробовал вставлять код между try и except. Так же каждое условие вставлял между. То что в условии вставлял в try except - ошибка не исчезла.

[Iron Monk]

Сообщение от Rec0il

Не помогает.
Пробовал вставлять код между try и except. Так же каждое условие вставлял между. То что в условии вставлял в try except - ошибка не исчезла.

Проверил - работает 100%
2016-01-21_1338.png

В отладчике сними галочку - "Stop on Delphi Exception".
Или проверяй не из Делфи.

[Rec0il]

Сообщение от Iron Monk

Проверил - работает 100%
Вложение 79288

В отладчике сними галочку - "Stop on Delphi Exception".
Или проверяй не из Делфи.

Помогло, прошу прощения) Я проверял прям в delphi. Попробовал запустить exe вне delphi, проблема отпала. Спасибо!

[newerow1989]

Пошагово не помогает? (клавиша F7 или F8)