-
Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!
Последнее сообщение от WestSide072
-
-
Сообщения профиля
1?? ????!!!11
1?? ????!!!11
-
-
Сообщения профиля
есть хочу...
есть хочу...
-
-
Сообщение
Stat Mini-calculator
Хаос, если дашь формулы расчета - добавлю) Вот мини описание формулы, наверн сам составишь, я другой прогой ща занимаюсь... Для вара так С каждого уровня +1 физ атака+ каждые 30уровней еще +1 физ атака. var fatack,lvl,x:real; begin fatack:=1; lvl:=StrToFloat(Edit1.Text); x:=fatack*lvl+lvl/30; Label7.Caption:=FloatToStr(x); end; На практике выглядит так: 1*150+150/30=155, проверить можете на онлайн калькуляторе, а вот если лвл не 150, а 100, то 1*100+100/30=103,33333 тут округлять надо, далее если lvl:=40; то 1*40+40/30=41,33333 тоже округлять. Гони пасябку! Проверить можно тут >>>ЖмЯк<<<
-
Тема
[Delphi] SendMessage
Здрасте, нужно сделать чтобы программа тыкала Start в другой неактивной программе, на своих самописных дельфи программах я смог это сделать а вот в деле не получается. Код такой unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var S,S1 : HWND; begin S:= FindWindow(nil,'Bot'); S1:=FindWindowEx(S, 0, 0, 'Start'); SendMessage(S1, BM_CLICK, 0, 0); end; end. Вот программа в которой нужно тыкнуть Start - Download
