Main в Delphi ?

[Alex11223]

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

Ни в одной папке с моими проектами нет *.dproj . Возможно, это в новых Дельфях, а у меня старушка 7-я .

Там dof вместо dproj, а в dpr так же и есть "Main".

http://delphi.wikia.com/wiki/Delphi_File_Extensions

[digitalis]

Дык я ж с потоками не работал пока, потому и не слышал основ. Но авось не боги горшки обжигают...
Не вижу в dpr Main, разве что под другой фамилией

[Alex11223]

Ну "Main" это точка входа.
Вот то, что в begin end тут, и есть оно.

Application.Run видимо запускает цикл обработки сообщений.

[northener]

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

Насчет .dpr - это же файл проекта, там вообще кода нет?

Должен вас огорчить. Вы абсолютно не правы. В файле проекта как раз содержится именно код вашей программы. А все остальные модули задействованные в вашем проекте - всего лишь дополнительные модули, которые обеспечивают программе нужную функциональность.

[northener]

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

Application.Run видимо запускает цикл обработки сообщений.

Странно от вас слышать столь неуверенное утверждение. Application.Run именно запускает цикл обработки сообщений, который является основой программы.

[digitalis]

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

В файле проекта как раз содержится именно код вашей программы.

Ну если 3 строчки, всегда одинаковые для всех программ (#12), можно назвать кодом, то значит, я последние 40 лет неправильно представлял себе, что такое код. Впрочем, Execute myprog.exe тоже можно назвать кодом. Но не хочется.

[Аватар]

можно назвать кодом

А чего нельзя? А ну-ка самому запрограммировать всю рутину спрятанную в application, да и за каждым оконным компонентом ))

[Pavia]

Си++ такие же строчки. Как говорится найди 10 отличий.

[Alex11223]

Если мало 3, то добавьте еще форм, там по умолчанию все формы создаются, а не только первая. Соответственно можно убирать оттуда если какие-то формы надо создавать только вручную.

И например часто туда вначале добавляют вызовы проверки лицензии или запрет запуска программы 2 раза.

program .......App;

{$R '....app.res' '......app.rc'}
{$R 'images.res' 'images.rc'}

uses
  Forms,
  SysUtils,
  Windows,
  Classes,
  Controls,
  MainFormUnit in 'MainFormUnit.pas' {MainForm},
  ...........................
  SizeInputControlUnit in 'SizeInputControlUnit.pas' {SizeInputControl: TFrame},
  FormUtils in 'FormUtils.pas';

{$R *.res}

var
  processesList: TList;
  i: Integer;
  pid: DWORD;
  h: HWND;
begin
  InitLocalization;

  if CreateMutex(nil, True, '....Appad0e4be8-ae15-4a61-b722-5709e7179257') = 0 then
    RaiseLastOSError;
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    // try to switch to the previous app window
    processesList := TList.Create;
    if FindProcesses(GetProcessNameByID(GetCurrentProcessId), processesList) > 0 then
    begin
      for i := 0 to processesList.Count - 1 do
      begin
        pid := DWORD(processesList[i]);
        if pid <> GetCurrentProcessId then
        begin
          h := FindMainWindow(pid, 'TMainForm');

          if h <> 0 then
          begin
            SendMessage(h, WM_APP_RESTORE, 0, 0);

            SetForegroundWindow(h);
          end;

          Break;
        end;
      end;  
    end;  

    Exit;
  end;

  InitPaths;  

  Application.Initialize;
  Application.Title := '.....';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(T......Form, .....Form);
  Application.Run;
end.

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

Странно от вас слышать столь неуверенное утверждение.

А чо?
Я не читал документацию, не смотрел исходник и не использую Дельфи давно.

[digitalis]

Да, "Дельфи и вообще ООП - неисчерпаемы, как атом" © В.И.Ленин
Жаль, не попалось мне оно лет этак 40 назад, пошла бы жизнь интересней...