http://ifolder.ru/6864163 вот сама программа.. Code: procedure TForm1.Button1Click(Sender: TObject); Type Matrix=array[1..10,1..10] of real; Mass=array[1..10] of real; var m:Byte; n,nk,k,i,j:integer; l,R,P,Xp,Yp:real; X,Y,C:Mass; //////// x1c,y1c:real; x2c,y2c,Rc,Xpc,Ypc,Pc:integer; Xc,Yc:array[1..10] of integer; s:string; //////// BEGIN //вводим данные из формы P:=StrToFloat(Edit1.Text); Xp:=StrToFloat(Edit2.Text); Yp:=StrToFloat(Edit4.Text); R:=StrToFloat(Edit5.Text); n:=StringGrid1.ColCount-1; {считывание элементов таблици в массив} for i:=1 to StringGrid1.ColCount-1 do begin if StringGrid1.Cells[i,1]='' then X[i]:=0 else X[i]:=StrToFloat(StringGrid1.Cells[i,1]); if StringGrid1.Cells[i,2]='' then Y[i]:=0 else Y[i]:=StrToFloat(StringGrid1.Cells[i,2]); end; {/считывание элементов таблици в массив} //Зануляем переменные nk:=0; m:=0; for i:=1 to n do begin l:=sqrt(abs(sqr(X[i]-Xp)+sqr(Y[i]-Yp))); // вычисляем расстояние между центрами окружностей if(l<=R+P)then begin k:=1; // если расстояние меньше или равно Сумме радиусов окружностей то у них есть хотябы одно пересечение if (l<P+R)then k:=2; // если расстояние меньше Суммы радиусов окружностей - одно пересечение if (l<=P-R)then k:=3; //если расстояние меньше Разности радиуса Р и R то окружность целиком попадает в круг Р и имеет бесконечно много пересечений end; if(k>m)then // сравниваем текущее число пересечений с максимальным begin m:=k; // если текущее кол-во пересечений больше максимального то присваимаем ему значение максимального nk:=i; s:='Номера круга имеющего наибольшее число пересечений '+FloatToStr(nk); end; end; if(nk=0)then s:='нет таких круго'; AboutBox1.Label1.caption:=s; ///ГРАФИК//// y1c:=trunc((AboutBox1.Image1.Height)/2); x1c:=trunc((AboutBox1.Image1.Width)/2); y2c:=StrToInt(FloatToStr(y1c)); // Координаты центра графика x2c:=StrToInt(FloatToStr(x1c)); // Координаты центра графика AboutBox1.image1.Canvas.Rectangle(0,0,x2c+x2c,y2c+y2c); // Очищаем график // переводим величины из вещественного типа в целый Rc:=StrToInt(FloatToStr(trunc(R))); Xpc:=StrToInt(FloatToStr(trunc(Xp))); Ypc:=StrToInt(FloatToStr(trunc(Yp))); Pc:=StrToInt(FloatToStr(trunc(P))); AboutBox1.image1.Canvas.Ellipse(x2c+(Xpc-Pc),y2c-(Ypc-Pc),x2c+(Xpc+Pc),y2c-(Ypc+Pc)); // Рисуем Круг Р AboutBox1.image1.Canvas.TextOut(x2c+Xpc,y2c-Ypc,'P'); // Рисуем круги множества Т for i:=1 to n do begin Xc[i]:=StrToInt(FloatToStr(trunc(X[i]))); Yc[i]:=StrToInt(FloatToStr(trunc(Y[i]))); AboutBox1.image1.Canvas.Ellipse(x2c+(Xc[i]-Rc),y2c-(Yc[i]-Rc),x2c+(Xc[i]+Rc),y2c-(Yc[i]+Rc)); AboutBox1.image1.Canvas.TextOut(x2c+Xc[i],y2c-Yc[i],IntToStr(i)); end; //Рисуем оси AboutBox1.image1.Canvas.Moveto(x2c,0); AboutBox1.image1.Canvas.lineto(x2c,y2c+y2c); AboutBox1.image1.Canvas.Moveto(0,y2c); AboutBox1.image1.Canvas.lineto(x2c+x2c,y2c); //стрелочки AboutBox1.image1.Canvas.TextOut(x2c+10,10,'y'); AboutBox1.image1.Canvas.Moveto(x2c,5); AboutBox1.image1.Canvas.lineto(x2c-5,20); AboutBox1.image1.Canvas.Moveto(x2c,5); AboutBox1.image1.Canvas.lineto(x2c+5,20); AboutBox1.image1.Canvas.TextOut(x2c+x2c-10,y2c+10,'x'); AboutBox1.image1.Canvas.Moveto(x2c+x2c,y2c); AboutBox1.image1.Canvas.lineto(x2c+x2c-20,y2c-5); AboutBox1.image1.Canvas.Moveto(x2c+x2c,y2c); AboutBox1.image1.Canvas.lineto(x2c+x2c-20,y2c+5); AboutBox1.Show; end; в отладке m = 228 почему то тесты X 10 20 30 40 Y 10 20 30 40 Xp 50 Yp 50 P = 20 R = 10 должно выводить 4 а выводиш хз что
Подскажите чем можно заменить GetModuleFileName ? может связка есть какая нить чтоб напрямую не вызывать функцию? мне конкретно вот именно GetModuleFileName не нужно, но чтобы она получала данные точно такие же как и GetModuleFileName? может кусок кода какой? спасиба!
Оппа щас посмотрим... может патянет... Параметр 0 = C:\PROGRAM FILES\BORLAND\DELPHI7\PROJECTS\PROJECT1.EXE Параметр 1 = -parm1 Параметр 2 = -parm2 РАБОТАЕТТТТТ!!! спасиба!
пишу криптор на делфи... криптор не палиться всё ништяк... +делает собственный стаб! он тоже не палиться. начинаю криптовать им и пишет Heur.rojan.generic беда..... че можно сделать?
Напичкать SEH фреймами, приватной антиотладкой, запаковать, подменить сигны на upx к примеру .. вариантов много
Попробуй поторговатся с ним, водочки налей .. Старнный вопрос .. заливаешь пхп скрипт на хост, в проге сокетом конектишся к хосту, отправляешь http заголовки, получаешь ответ, парсишь че надо ..
BlackSun а может он имеет в виду чтобы можно было в приложении юзать PHP как встроенный скриптовый язык.
Поменяй заголовок отправщика, скачай делфи базу там множество примеров есть и такое тоже http://delphiworld.narod.ru/ http://delphiworld.narod.ru/base/bomb_mail_boxes.html http://delphiworld.narod.ru/base/email_silence_send.html
Спасибо! вроде сигнатуру добавил как будто UPX запакован... все равно сволочь арёт что вирусняк... главное дело что ниче не палит... если нажмешь пропустить то он его запустит и проактивка промолчит! а как сканировать начинаешь так и орёт Her/troyan.generik... пипец уже хрен знает скока бьюсь.. может руки кривые? )))))))
