что за язык? - Помощь студентам

Baron9186 · 01.10.2010, 10:01

есть текст проги вытянутый из exe-шника, хотелось бы узнать что это за язык? похож чем-то на delphi, но он с delphi не контачет...
текст приведен ниже:

Код:

object Form1: TForm1
  Left = 271
  Top = 112
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = 'DXSoft Switcher 2.10'
  ClientHeight = 25
  ClientWidth = 192
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Sw1Button: TSpeedButton
    Left = 1
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 1
    Caption = '1'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw1ButtonClick
  end
  object Sw2Button: TSpeedButton
    Left = 25
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 2
    Caption = '2'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw2ButtonClick
  end
  object Sw3Button: TSpeedButton
    Left = 49
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 3
    Caption = '3'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw3ButtonClick
  end
  object Sw4Button: TSpeedButton
    Left = 73
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 4
    Caption = '4'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw4ButtonClick
  end
  object Sw5Button: TSpeedButton
    Left = 97
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 5
    Caption = '5'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw5ButtonClick
  end
  object Sw6Button: TSpeedButton
    Left = 121
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 6
    Caption = '6'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw6ButtonClick
  end
  object Sw7Button: TSpeedButton
    Left = 145
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 7
    Caption = '7'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw7ButtonClick
  end
  object Sw8Button: TSpeedButton
    Left = 169
    Top = 3
    Width = 20
    Height = 20
    AllowAllUp = True
    GroupIndex = 8
    Caption = '8'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Sw8ButtonClick
  end
  object VicPort1: TVicPort
    LPTNumber = 0
    Left = 41
    Top = 123
  end
end

Что, кнопка тэг # для тебя не доступен чтоли?

Smitt&Wesson · 01.10.2010, 10:22

И не будет контачить. У Делфи (как и у Паскаля) перед "end" должен стоять "begin".
Сдесь этого не наблюдается. Скорее всего, - это язык описания объектов (название запамятовал), но где то уже встречалось..

Alex Cones · 01.10.2010, 10:52

ИМХО это DFM файл от дельфи. Для сравнения:

Код:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 533
  Height = 398
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 22
    Top = 76
    Width = 9
    Height = 37
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 62
    Top = 18
    Width = 75
    Height = 21
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end

Serge_Bliznykov · 01.10.2010, 10:58

Цитата:

У Делфи (как и у Паскаля) перед "end" должен стоять "begin".

нет, это не так. в описании типов END должен стоять без всякого бегина:
например,

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Baron9186, Ваш exeшник 100% на Delphi был написан/откомпилирован.
То, что Вы вытащили, при разработке находится в DFM файле, это Delphi Form files, описание формы и объектов (и их свойств), которые принадлежат этой форме.

Baron9186 · 01.10.2010, 12:11

Благодарю за помощь!!!
кстати не подскажите еще один момент. Т.к. я в Delphi тот еще чайник где в тексте надо прописать Form1.Close или Application.Terminate что бы прога сама закрывалась, буз нажатия на "Х"?

evg_m · 01.10.2010, 12:26

Цитата:

где в тексте надо прописать Form1.Close или Application.Terminate что бы прога сама закрывалась, буз нажатия на "Х"?

1.В любом удобном месте.
2. Там где программа по присущей ей логике определит, что ей пора зарываться.

Baron9186 · 01.10.2010, 14:03

Цитата:

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

1.В любом удобном месте.
2. Там где программа по присущей ей логике определит, что ей пора зарываться.

куда не вставлял программа выдает ошибку

Serge_Bliznykov · 01.10.2010, 19:09

а куда Вы вставляли? Может в секцию описания переменных? или куда?

сейчас, прикола ради проверил.
поместил код на событие onShow формы

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
  Form1.Close;
end;

форма закрывается сразу при попытке показаться...

Baron9186 · 04.10.2010, 08:24

вроде получилось...........но не все прога вроде как закрывается, но к сожалению остается в списке процессов(

Sparkman · 04.10.2010, 08:43

Цитата:

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

вроде получилось...........но не все прога вроде как закрывается, но к сожалению остается в списке процессов(

кидаете на форму любой контрол, например Button, на ней кликаете мышей 2 раза, и пишете Application.Terminate, либо MainForm.Close

01.10.2010, 10:22	#2
Smitt&Wesson Старожил Регистрация: 31.05.2010 Сообщений: 13,543	И не будет контачить. У Делфи (как и у Паскаля) перед "end" должен стоять "begin". Сдесь этого не наблюдается. Скорее всего, - это язык описания объектов (название запамятовал), но где то уже встречалось.. Пиши пьяным, редактируй трезвым. Справочник по алгоритмам С++ Builder

01.10.2010, 19:09	#8
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	а куда Вы вставляли? Может в секцию описания переменных? или куда? сейчас, прикола ради проверил. поместил код на событие onShow формы Код: `procedure TForm1.FormShow(Sender: TObject); begin Form1.Close; end;` форма закрывается сразу при попытке показаться...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Что нужно знать (сделать), что бы прога запускалась в Виндос 7 и Виста	marina15056	Помощь студентам	19	24.08.2010 11:29
Товарищи модераторы за что удалили мою Тему? Или я что то не втыкаю!?	Олег Егоров	Помощь студентам	0	19.05.2010 19:39
доказательство, что произведение матриц А и В не коммутативно. Язык С	sanela	Помощь студентам	2	26.01.2010 02:11
Что встраивать в язык?	Utkin	Общие вопросы по программированию, компьютерный форум	40	15.10.2009 18:13
Что такое язык программирования???	viks1	Общие вопросы по программированию, компьютерный форум	79	08.08.2009 18:06

01.10.2010, 12:11	#5
Baron9186 Пользователь Регистрация: 21.09.2010 Сообщений: 15	Благодарю за помощь!!! кстати не подскажите еще один момент. Т.к. я в Delphi тот еще чайник где в тексте надо прописать Form1.Close или Application.Terminate что бы прога сама закрывалась, буз нажатия на "Х"?

04.10.2010, 08:24	#9
Baron9186 Пользователь Регистрация: 21.09.2010 Сообщений: 15	вроде получилось...........но не все прога вроде как закрывается, но к сожалению остается в списке процессов(