[Nikit_OS7]

Скажите пожалуйста, вот первый раз пользуюсь delphi7, как сделать так, чтобы при открытии программы сразу выполнялась команда cmd?

[NumLock]

файл проекта изменить до:

Код:

program Project1;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  WinExec('cmd', SW_SHOW);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Nikit_OS7]

Спасибо конечно, но я не понимаю что это значит и куда вставить? Объясните пожалуйста =)

[NumLock]

View-Units...-Project1

[Nikit_OS7]

А если мне нужно несколько функций одновременоо?

[Nikit_OS7]

Ты наверно меня не так понял, я имел в виду как сделать чтобы при запуске выполнялись функции командной строки к примеру:
time 0:00 >nul
???
Или же как запихнуть .bat файл?

[NumLock]

ну а справку по cmd почитать:

Запуск новой копии интерпретатора команд Windows XP.

CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]
[[/S] [/C | /K] строка]

/C Выполнение указанной команды (строки) с последующим завершением.
/K Выполнение указанной команды (строки) без последующего завершения.
...

Код:

  WinExec('cmd /c ping 127.0.0.1', SW_SHOW);
  WinExec('cmd /c z.bat', SW_SHOW);