BP.EXE 7 паскаля вообще делает проги под винду?

самая правая вкладка

Application Wizard\ включить в меню файл, редактирование, окна, хелп\ уточнить параметры для этих пунктов меню...

Копайся в меню. Мало кто помнит, как оно было в Delphi 3.

Можно вручную создать .dpr файл, потом открыть его в среде и писать в нём программу.

Оригинально. Я удалил из программы форму, её инициализацию, и получил приложение без формы. Забавно. Раньше мне такое не приходило в голову.

Цитата Ivanhoe75 @ 27.05.15, 12:40

Оригинально. Я удалил из программы форму, её инициализацию, и получил приложение без формы.

А если выбросить всякий шлак из "Uses", то можно получить крайне легковесное приложение-каркас на несколько килобайт веса. Правда, импортировать WinAPI-функции придётся в рукопашную (копи-пастом из штатных модулей), но иногда это реальный путь.

Не проходит. Для функции shellexecute первый параметр handle ,по видимому, является указателем на окно его вызвавшее.

Ты читал хелп по функции? Ноль укажи.
https://msdn.microsoft.com/en-us/library/wi...p/bb762153.aspx

A handle to the parent window used for displaying a UI or error messages. This value can be NULL if the operation is not associated with a window.

Сообщение отредактировано: MBo - 10.06.15, 14:56

Писать проги на паскале под винду одна из форм компьютерного извращения. И если не получается то это очень хорошо, потому как переход к современным способам программирования даст лучшие результаты в работе и моральное удовлетворение программисту.

Добавлено 21.06.15, 10:11
Если доктор пытается оперировать гланды через задний проход, его нужно вовремя остановить, а не помогать советами. Потому как на опрерационном столе могут оказаться и советчики, а тогда будет поздно.

В разделе holiwar должна быть соответствующая тема для обсуждения преимуществ и недостатков ряда ЯП.

Сделал в делфи 3. Что-то ошибка evarianterror invalid variant type conversion.

Скрытый текст

program Project1;

uses

ShellExec in 'ShellExec.pas' {Form1},
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI, StdCtrls, ExtCtrls;


{$R *.RES}
Var
Command, Params,WorkDir : String;

begin
Command :='command.com'+ #0;
Params := #0;
WorkDir := #0;

Application.Initialize;
{ Application.CreateForm(TForm1, Form1);}
Application.Run;
If ShellExecute(NULL ,'open',@Command[1],@params[1],@WorkDir[1],
SW_SHOWNORMAL) < 32 THEN
MessageDlg('Failed to execute ',mtError, [mbOK] , 0);
end.

Не надо брать адрес посимвольно через @s[i], лучше просто приводить к PChar(s), где s - типа string.
Плюс при выходе из Application.Run(), если память не изменяет, приложение считается оконченным.