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

BP.EXE 7 паскаля вообще делает проги под винду? В настройках есть, а дальше uses дело не движется.

Цитата Ivanhoe75 @ 20.05.15, 08:50

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

Нет. Только чистый DOS.
А тебе зачем это?

Да мне надо написать прогу вызов функции из винапи. Окна не нужны значит и Делфи не нужен. В с++ я не силён. остаётся паскаль

>Окна не нужны значит и Делфи не нужен
Консольные и вообще безоконные приложения можно и на Дельфи делать.

И как же? По умолчанию в дельфи форма-окно стартует. Я свою прогу изначально в дельфи написал, но у меня ненужное окно присутствует

Сообщение отредактировано: Ivanhoe75 - 20.05.15, 11:43

Проще всего сделать новый проект - консольное приложение (File-New-Other-Console Appplication), а потом удалить из него строку {$APPTYPE CONSOLE}.
Это можно сделать после того, как программа отлажена, и вывод диагностики больше не нужен

Это какая версия Делфи?

Любая

Цитата min@y™ @ 20.05.15, 08:58

BP.EXE 7 паскаля вообще делает проги под винду?
Нет. Только чистый DOS.
А тебе зачем это?

Неверно. Переключаем compile\ target = windows и работает. И под protected mode делает

Цитата min@y™ @ 20.05.15, 08:58

Нет. Только чистый DOS.

BP в отличии от TP может. Там даже есть BPW.exe, IDE на окнах в винде.

Цитата MBo @ 20.05.15, 12:05

Проще всего сделать новый проект - консольное приложение (File-New-Other-Console Appplication), а потом удалить из него строку {$APPTYPE CONSOLE}.Это можно сделать после того, как программа отлажена, и вывод диагностики больше не нужен

В 3-м делфи нету Other. Подскажите как консольное приложение сделать.

Значит, нужно тщательно проглядеть меню File-New.
Возможность создать консольное приложение была всегда.
http://code-man.narod.ru/delphi/console_app/

У меня вот так.
http://www.4shared.com/photo/Loy6mlgFba/1_online.html

На вкладке Projects что есть?

На Project1 один элемент Form1

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

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(), если память не изменяет, приложение считается оконченным.