Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.06.2009, 21:39   #1
alex_a
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 6
По умолчанию Проблемма с выполнением при загрузке

Процедура TForm1.FormCreate должна (по замыслу и вроде логике проги) выполняться сразу при запуске, но не выполняется. Чего не так - буду благодарен за пояснения чего и как исправить.
Прога после запуска должна перенести курсор мыши и имитировать нажатие/отпускание левой клавиши мыши (форма вообще не нужна).

Win XP SP2
Delpfi 7 Ent

-------------- Код -----------------------
unit proct;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Pt: TPoint;
begin
Application.ProcessMessages;

Pt := ClientToScreen(Pt);
Pt.x := Round(65535 / 2.15);
Pt.y := Round(65535 / 1.83);

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);

form1.Close;
end;

end.
-------------------------------------
alex_a вне форума Ответить с цитированием
Старый 30.06.2009, 21:43   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

в событиях формы она точно указанна?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 30.06.2009, 21:51   #3
alex_a
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 6
По умолчанию

Дельфи взял только для написания маленького кода, так что ответить на вопрос точно не могу. Подскажите ПОЖАЛЙСТА где это можно проверить?
alex_a вне форума Ответить с цитированием
Старый 30.06.2009, 22:07   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

в инспекторе обьектов(Object Inspector) на вкладке События(Events)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 30.06.2009, 22:16   #5
alex_a
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 6
По умолчанию

Если в инспекторе обьектов(Object Inspector) на вкладке События(Events) ... в поле "OnActivate", то да (Значение FormCreate).
alex_a вне форума Ответить с цитированием
Старый 30.06.2009, 22:19   #6
alex_a
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 6
По умолчанию

И в поле "OnCreate" тоже выбрал - результат тот же.
alex_a вне форума Ответить с цитированием
Старый 30.06.2009, 22:26   #7
alex_a
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 6
По умолчанию

Все нашел причину. Большое спасибо.
alex_a вне форума Ответить с цитированием
Старый 30.06.2009, 22:26   #8
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

чуть запоздало...

будут проблемы пишите
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 30.06.2009, 22:35   #9
alex_a
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 6
По умолчанию

Нашел причину благодаря вашему вопросу. Еще раз спасибо.
alex_a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
XP виснет при загрузке Андрей Белый Windows 2 08.05.2009 21:58
Выбор ОС при загрузке ПК [Smarik] Операционные системы общие вопросы 12 23.03.2009 10:59
БАГ при загрузке!!! Tatyana_777 Операционные системы общие вопросы 8 11.03.2009 09:51
ОШИБКА ПРИ ЗАГРУЗКЕ Костян Пират Операционные системы общие вопросы 5 21.02.2009 12:14
Ошибка при загрузке.... Ronni10 Операционные системы общие вопросы 6 10.01.2008 22:20