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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.04.2007, 14:59   #1
Польчик
Новичок
Джуниор
 
Регистрация: 26.04.2007
Сообщений: 2
По умолчанию Хочу запустить файл

Написала небольшой проек в котором мне необходимо при нажатии кнопки запускать простую игрушку, такую как тетрис например. то есть мне надо открывать exe.файл. Буду очень благодрна за помощь
Польчик вне форума
Старый 26.04.2007, 15:06   #2
mrandrey
Форумчанин
 
Регистрация: 30.03.2007
Сообщений: 124
По умолчанию

ShellExecute(0,nil,pchar(filename), pchar(parametrs),pchar(directory),1 );
вот так..

кстати чуть не забыл, не забудь
uses ......, shellapi;

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

function RunFileAndWait(const FileName,Params:ShortString):boolea n;export;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLinechar;
begin
{ Ïîìåùàåì èìÿ ôàéëà ìåæäó êàâû÷êàìè, ñ ñîáëþäåíèåì âñåõ ïðîáåëîâ â èìåíàõ Win9x }
CmdLine := PChar('"'+Filename+'" '+Params);
FillChar(StartInfo, SizeOf(StartInfo), #0);
with StartInfo do
begin
cb := SizeOf(CmdLine);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow :=1;
end;
//
Result := CreateProcess(nil,
CmdLine,
nil,
nil,
false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil,
nil,
StartInfo,
ProcInfo);
{ Îæèäàåì çàâåðøåíèÿ ïðèëîæåíèÿ }
if Result then
begin
WaitForSingleObject(ProcInfo.hProce ss, INFINITE);
{ Free the Handles }
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
Тут без 100г не розберешся.....
Спасибо не нужно, а на весы слева кликнуть не помешает!!!
mrandrey вне форума
Старый 27.04.2007, 04:55   #4
Польчик
Новичок
Джуниор
 
Регистрация: 26.04.2007
Сообщений: 2
По умолчанию

Спаибо, пойду попробую. Напишу получилось или нет
Польчик вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как запустить EXE из Delphi Delfyak О форуме и сайтах клуба 6 28.05.2008 19:25
Запустить bat файл Ніжний Диявол Общие вопросы Delphi 1 13.05.2008 22:48
Как запустить из Delphi exe файл Makxim Общие вопросы Delphi 11 16.10.2007 18:06
Запустить opera s-force Работа с сетью в Delphi 7 27.08.2007 12:37
Как запустить EXE XATAB Общие вопросы Delphi 4 08.07.2007 23:54