Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2009, 18:25   #1
Xcopy
Форумчанин
 
Аватар для Xcopy
 
Регистрация: 03.02.2009
Сообщений: 126
Вопрос Запустить ехе'шник...

какой код нужно прописать чтоб из делфи запустить еще ехе...
Цитата:
пример:
Запустить('C:\paint.exe');
КАК? Зарание спс...
Xcopy вне форума Ответить с цитированием
Старый 13.04.2009, 18:35   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

поиском пользовались?

Код:
uses ShellAPI;

s:='C:\paint.exe'
ShellExecute(nil,'open',PChar(s),nil,nil,SW_SHOW);
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 13.04.2009, 18:35   #3
NieL
Форумчанин
 
Регистрация: 17.11.2008
Сообщений: 116
По умолчанию

Можно так, например:
Код:
ShellExecute(Handle, 'open', 'C:\paint.exe', nil, nil, SW_SHOW);
NieL вне форума Ответить с цитированием
Старый 13.04.2009, 18:40   #4
NieL
Форумчанин
 
Регистрация: 17.11.2008
Сообщений: 116
По умолчанию

Или так:
Код:
WinExec('C:\Paint.exe', SW_SHOW);
NieL вне форума Ответить с цитированием
Старый 13.04.2009, 18:43   #5
Xcopy
Форумчанин
 
Аватар для Xcopy
 
Регистрация: 03.02.2009
Сообщений: 126
По умолчанию

Спасибо вам ребята!
Xcopy вне форума Ответить с цитированием
Старый 13.04.2009, 19:13   #6
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,051
По умолчанию

если имелось ввиду стандартный paint то достаточно
Код:
WinExec('mspaint.exe',SW_SHOWNORMAL);
без уканя диска С:\ ... так как системным может оказаться и другой диск.
Noor вне форума Ответить с цитированием
Старый 13.04.2009, 19:56   #7
Xcopy
Форумчанин
 
Аватар для Xcopy
 
Регистрация: 03.02.2009
Сообщений: 126
По умолчанию

Кстати... а как определить диск на котором финда (сис)...??..
Xcopy вне форума Ответить с цитированием
Старый 13.04.2009, 20:12   #8
Altera
Старожил
 
Аватар для Altera
 
Регистрация: 29.01.2008
Сообщений: 2,406
По умолчанию

WinExec в Delphi 2009 не фурычит
Altera вне форума Ответить с цитированием
Старый 14.04.2009, 01:36   #9
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Кстати... а как определить диск на котором финда (сис)...??..
Код:
Function WinDir: String;
Var
IntLen: Integer;
StrBuffer: String;
Begin
SetLength(StrBuffer,1000);
IntLen:=GetWindowsDirectory(PChar(StrBuffer),1000);
WinDir:=Trim(Copy(StrBuffer,1,IntLen));
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
запустить экзешник Анастасия123456789 Помощь студентам 2 03.04.2009 16:20
Запустить приложение Gawwws Microsoft Office Excel 5 05.12.2008 04:53
Запустить фильм Aleksandr Общие вопросы Delphi 3 15.10.2008 19:36
Запустить внешнее приложение Copperfild Общие вопросы Delphi 7 01.10.2008 12:13
Запустить opera s-force Работа с сетью в Delphi 7 27.08.2007 12:37