Как понять в какую програму вставит этот код? Какой язык программирование?

[Aram444]

interface
uses
  Windows, Messages, Sysutils,
  Variants, Classes, Graphics, Controls,
  Forms, Dialogs, ExtCrls, StdCtrls;
  type
    TForm1=class(TForm)
    Image1:TImage;
    Edit1:TEdit;
    Edit2:TEdit;
    Edit3:TEdit
    Edit4:TEdit;
    Edit5:TEdit;
    label1:TLabel;
    Label2:TLabel;
    Label3:TLabel;
    Label4:TLabel;
    Label5:TLabel;
    Label6:TLabel;
    Edit6:TEdit;
    Label7:TLabel;
    Edit8:TEdit;
    Label9;TLabel;
    Edit9:TEdit;
    Edit10:TEdit;
    Edit11:TEdit;
    Edit12:TEdit;
    Edit13:TEdit;
    Edit14:TEdit;
    Edit15:TEdit;
    Edit16:TEdit;
    pic001:TImage;
    Image2:TImage;
    Image3:TImage;
    Image4:TImage;
    Image5:TImage;
    Edit17:TEdit;
    Label11:TLabel;
    Label12:TLabel;
    Label13:TLabel;
    Label14:TLabel;
    Label15:TLabel;
    Image6:TImage;
    Image7:TImage;
    Image8:TImage;
    Image9:TImage;
    Label16:TLabel;
    Label17;TLabel;
    Label19;TLabel;
    Panel1:TPanel;
    Button1:TButton;
    Button2:TButton;
    Button3:TButton;
    Image10:TImage;
    Label20:TLabel;
    Label21:TLabel;
    Label22:TLabel;
    procedure EditKeyPress(Sender:
    TObject;var Key; Char);
    procedure Button1Click(Sender:
    TObject);
    procedure Button2Click(Sender:
    TObject);
    procedure Button3Click(Sender:
    TObject);
    private
      {Private declarations}
    public
      {public declarations}
      end;
      var
        Form1:TForm1;
        Dd,tint,tht,Zht,a,b,Rk,R0,aint,aext:
        Real;
        g,y:array[1...5]of Real;
        implementation
        {$R*.dfm}
        procedure TForm1.EditKeyPress
        (Sender:TObject;var Key;Char);
        begin
          case Key of
          '.',',':
        begin
        if key='.'then key:='.';
        end;
        '0'..'9' ;
        #8 : ;
        '-': ;
        else Key:=Chr(0);
        end;
        end;
        procedure TForm1.Button1Click
        (Sender:TObject);
        begin
        if (edit1.Text <> ")and
           (edit2.Text <> ")and
           (edit3.Text <> ")and
           (edit4.Text <> ")and
           (edit5.Text <> ")and
           (edit7.Text <> ")and
           (edit8.Text <> ")and
           (edit9.Text <> ")and
           (edit10.Text <> ")and
           (edit11.Text <> ")and
           (edit12.Text <> ")and
           (edit14.Text <> ")and
           (edit15.Text <> ")and
           (edit16.Text <> ")and
           (edit17.Text <> ")then
           begin
             tint:=strtofloat(edit1.Text);
             tht:=strtofloat(edit2.Text);
             zht:=strtofloat(edit3.Text);
             a:=strtofloat(edit4.Text);
             b:=strtofloat(edit5.Text);
             aint:=strtofloat(edit6.Text);
             aext:=strtofloat(edit8.Text);
             y[1]:=strtofloat(edit9.Text);
             y[2]:=strtofloat(edit10.Text);
             y[3]:=strtofloat(edit11.Text);
             y[4]:=strtofloat(edit12.Text);
             y[5]:=strtofloat(edit13.Text);
             g[1]:=strtofloat(edit14.Text);
             g[2]:=strtofloat(edit15.Text);
             g[4]:=strtofloat(edit16.Text);
             g[5]:=strtofloat(edit17.Text);
             Dd:=(tint-tht)*zht;
             Rk:=a*Dd+b;
             r0:=(1/aint)+rk+(1/aext);
             g[3]:=(r0-(1/aint)-(g[5]/y[5])-(1/aext))*y[3];
             label20.visible:=True;
             image10.visible:=True;
             label22.Caption:='='+FloatToDtrF
             (g[3],ffFixed,8,4)+'m';
           end;
           else
           showmessage('Bolor dashtery petq e lracven');
           end;
           procedure TForm1.Button2Click
           (Sender:TObject);
           begin
             showmessage(
             'ASoft3 v1.01'+#13+
             'Avtorskoe pravo 2009 g.'+#13+
             'E-mail:Aram-hovhannisyan@mail.com'+#13+#13+
             'Dannaya programa besplatn'+#13+
             't.e. kak est avtor ne nesyot otvetstvennosti za porchu i'+#13+
             'poteryu informacii'+#13+
             'Zapreshaetca ispolzovat dannuyu programu v kamercheskix'+#13+
             'celyax bez soglasia avtora');
             end;
             procedure TForm1.Button3Click
             (Sender:TObject);
             begin
               form1.Close;
             end;
             end.

Вообщем мне нужна готовая программа из этого кода, если это возможно?(Я далеко от программирование).
Зарание Спасибо.

[Utkin]

Даст ист Delphi , версия ориентировочно до 2009 года. Скорее всего Дельфи 7 (так как он наиболее распрастранен).

ЗЫ. коммерческих пишется через о. А вообще подделка примитивна, вряд ли вообще кто будет ею пользовать в коммерческих целях .

[Aram444]

Спасиба за ответ. Я одно диссертацию купил из интернета дам был этот код в приложениях. Я напечатал этот текст в Delphi 7, и дальше не знаю что делать)) там есть Bulid, Run, можете сказат что дальше делать?)
(Я из Армении, и русский язык у меня не на первом уровне, так что за ошыбки извините)))

[Utkin]

run

showmessage(
 'ASoft3 v1.01'+#13+
 'Avtorskoe pravo 2009 g.'+#13+
 'E-mail:Aram-hovhannisyan@mail.com'+#13+#13+
 'Dannaya programa besplatn'+#13+
 't.e. kak est avtor ne nesyot otvetstvennosti za porchu i'+#13+
 'poteryu informacii'+#13+
 'Zapreshaetca ispolzovat dannuyu programu v kamercheskix'+#13+
 'celyax bez soglasia avtora');
 end;

Обрати внимание, то что в одинарных кавычках должно выводиться. Прочитай, нужен ли тебе этот текст.
Че-то у меня ощущение, что 1-й пост это не весь текст программы

[Aram444]

нет не нужен, я там жму на Build, говорит есть одна ошыбка.

program Project1;

uses
  Forms,
  CRAGIR in 'CRAGIR.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Fatal Error] Project1.dpr(5): File not found: 'CRAGIR.dcu'



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

CRAGIR in 'CRAGIR.pas' {Form1};

скорее всего, код из первого приложения должен быть сохранён в файле CRAGIR.pas

[Mad_Cat]

Я напечатал этот текст в Delphi 7

а компоненты то накидали?

Я одно диссертацию купил из интернета

левые дисеры популярны видимо не только у нас,
P.S слабовата прожка для дисертации имхо