[XaKeR282]

как преобразовать дробное число в строку?

[PhoeniX]

FloatToStr?

[Konrad]

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

как преобразовать дробное число в строку?

Какер блин...

А гугль зачем?
А учебники делфи?
http://www.delphisources.ru/forum/showthread.php?t=6221
Прочитай хоть одну, и не будешь тогда задавать такие вопросы.

[440420789]

новую тему не стал создавать.
помогите пожалуйста, надо сделать программу которая имитирует нажатие левой кнопки мыши заданное количество раз. поставил курсор на нужное место, потом нажал enter, и программа начинает кликать(в секунду раз 10 надо чтобы кликала), а потом сама останавливалась.
я пробовал так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

с интервалом таймера=100

она кликает, но я никак немогу её остановить(((
помогите...

[Pilot_Red]

Если это весь код процедуры, то не вариант сделать переменую счетчик, увеличивать ее на 1, до тех пор пока она не станет равно 10

типо того:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i<10 then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
end;

[440420789]

да это весь код, но если делать как ты пишешь, то он же вообще не кликает(((((( надо как то задать количество кликов.

[Pilot_Red]

а ты где i обьявляешь в процедуре или в голове модуля.

[lmikle]

А у таймера св-во Enabled поставить в False слабо?

[440420789]

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

А у таймера св-во Enabled поставить в False слабо?

вот это весь мой код!!!!!!

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

пробовал я там со счётчиками и со false ставил, и второй таймер пробывал подрубать, ну связать их через edit(через количество кликов) и через свойство интервал. например: если я ввожу в edit 100, то у первого таймера св-во интервал ставлю 100, а второго таймера ставлю 10000. и ещё во втрой таймер пишу остановить первый таймер(ну чтобы он перестал кликать).
ну ничего не получается, он кликает и кликает. его можно остановить только нажав на крестик

напишите пожалуйста как это делать? может у меня где то ошибка??

[Black Raider]

вам уже ответили.
объявите глобальную переменную.
при запуске таймера этой переменной присвойте 0

и процедуру таймера измените:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(Kol)
if Kol<10 then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end
else Timer1.enabled:=false;
end;

[440420789]

Сообщение от Black Raider

вам уже ответили.
объявите глобальную переменную.
при запуске таймера этой переменной присвойте 0

и процедуру таймера измените:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(Kol)
if Kol<10 then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end
else Timer1.enabled:=false;
end;

всё разобрался спасибо большое!!!!!оказывается надо было просто глобальную переменную объявлять, а я локально тока делал вот и не получалось)) спасибо!!!!

[Pilot_Red]

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

а ты где i обьявляешь в процедуре или в голове модуля.

а этот ответ наверно читался через строку))

[440420789]

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

а этот ответ наверно читался через строку))

ну я сначало не понял)) ну получается что так
А вы не знаете как можно менять компоненты .exe файла написанного на делфи через другой .exe файл? скажем так сделать редактор.exe

[PhoeniX]

Ещё один кулхацкер, не умеющий пользоваться гуглом...
PE секции. Осилишь или нет - прогнозов делать не буду...

[440420789]

Здрасьте, помогите пожалуйста, хочу сделать чтобы одна процедура запускалась несколько раз(количество задаем в edit), а потом следующая процедура запускается и тд. например, если я хочу компонент таймер1 испоьзовать 5 раз, потом другой таймер2 10 раз и тд. заранее спасибо.