Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Открыть Paint с помощью TP 
V
    Опции темы
COOLJohn
  Дата 12.7.2006, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет
Какой нужно написать код, чтобы программа самостоятельно вошла, напрмер, в PAINT. 
PM MAIL   Вверх
Alexeis
Дата 12.7.2006, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Если программа будет скомпилирована под windows,
можно вызвать winexecute передать ей путь к paint.
 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Fighter
Дата 13.7.2006, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2
Цитата(alexeis1 @  12.7.2006,  14:06 Найти цитируемый пост)
winexecute


может быть winexec 
PM MAIL   Вверх
COOLJohn
  Дата 13.7.2006, 10:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет
Не могли бы вы привести пример? 
PM MAIL   Вверх
Alexeis
Дата 13.7.2006, 10:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Fighter, да верно 
Цитата(Fighter @  13.7.2006,  00:36 Найти цитируемый пост)
 winexec 
 старая фукнция - давно не пользовался.
А пример создания windows приложения есть в книге Фаронова в первой части. Попробую найти...
 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 13.7.2006, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484
Цитата(COOLJohn @  13.7.2006,  10:19 Найти цитируемый пост)
Не могли бы вы привести пример? 
Не мог бы ты назвать компилятор и версию, на котором пишешь? 
PM MAIL   Вверх
Alexeis
Дата 13.7.2006, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Snowy, 
Цитата

Открыть Paint с помощью TP
 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 13.7.2006, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484
Тогда при чём здесь WinExec?
Открывай справку и ищи комманду Exec.
Там есть пример.
На всякий случай привожу его тут:
Код

{DOSXCODE.PAS}
{ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ }
{ Пример программы для DosExitCode и Exec }

{$M $4000, 0, 0 }   { 16Kб стек, нет кучи }
Uses Dos;

Var ProgramName, CmdLine : String;
Begin
 Write('Имя программы для запуска (с путем) : ');
 ReadLn(ProgramName);
 Write('Параметры командной строки ', ProgramName, ' : ');
 ReadLn(CmdLine);
 WriteLn('Пробую запустить...');
 SwapVectors;
 Exec(ProgramName, CmdLine);
 SwapVectors;
 WriteLn('... вернулся из Exec');
 { Была ошибка ? }
 If DosError<>0 Then WriteLn('Ошибка DOS #', DosError)
 Else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
End.
 
PM MAIL   Вверх
Alexeis
Дата 13.7.2006, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Snowy, а разве 16 - ти битный код может запустить приложение win32?

Добавлено @ 11:55 
наверное вот так (не проверял)
Код

Program WinCRT_Demo; 
Uses WinCRT; 
var
 s : string[34];
begin 
s := '%SystemRoot%\System32\mspaint.exe'#0;
winexec(@s, SW_SHOW);
end.
 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 13.7.2006, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484
Цитата(alexeis1 @  13.7.2006,  11:44 Найти цитируемый пост)
Snowy, а разве 16 - ти битный код может запустить приложение win32?
Канечна.
Он просто даёт указание операционной системе на запуск.
А как она будет запускать - уже не его дело.
А WinExec в TP нет.
TP ничего не знает про dll. И уж тем более про импорт виндовых функций.
И WinCrt - это уже BP, а не TP. 
PM MAIL   Вверх
Alexeis
Дата 13.7.2006, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Цитата(Snowy @  13.7.2006,  11:59 Найти цитируемый пост)
Он просто даёт указание операционной системе на запуск

Странно почему BP тогда не запускает проги скомпилированные с WinCRT (F9 работает, а ctrl+F9 нет), или это просто недоработка BP 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
COOLJohn
  Дата 13.7.2006, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет
PAINT запускает, а вот Opera не может. Что это значит? 
PM MAIL   Вверх
Alexeis
Дата 13.7.2006, 22:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
COOLJohn, какой вариант 1 или 2 ? 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Alexeis
Дата 13.7.2006, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459
Цитата(COOLJohn @  13.7.2006,  19:14 Найти цитируемый пост)
а вот Opera не может

может и оперу! просто имена папок длинее 8 символов сокращают до 6 например
program files->progra~1
Код

{$M $4000, 0, 0 }   { 16Kб стек, нет кучи }
Uses Dos;

Var ProgramName, CmdLine : String;
Begin
 SwapVectors;
 Exec('E:\Progra~1\Opera\Opera.exe', '');
 SwapVectors;
End.

 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 14.7.2006, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484
Угу. TP создаёт DOS приложения, которые не умеют работать с длинными путями.
Все имена файлов должны указываться в формате 8.3 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0635 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.