0

Здраствуйте! Можно ли в дельфи как то создать интерфейс с сылкой на ехе файл (екзешник скринсейвера) Прилагается картинка как бы это выглядело. alt text
Я хочу чтобы при нажатии кнопки "запуск программы" открывался мой екзешник скринсейвер. А еще лучше будет если возможно добавить таймер, по истечению которого открывался бы ехе файл. Заранее спасибо за ответы!

1
  • Странный скринсайвер... Для чего запускать ехе(какбэ скринсейвер), после закрытия приложения?
    – I_CaR
    23 мар 2012 в 8:53

3 ответа 3

5

Да такой механизм можно проделать! Просто нужно в кнопку вписать код!

ShellExecute(Handle,nil,PChar('Путь где находится программа.exe'),nil,nil,SW_RESTORE);

Да и не забудь вставить:

uses... ShellApi

Надеюсь это то что нужно!

1
  • Да ну так тоже верно но просто я думаю легче будет вписать код в кнопу. ShellExecute(Handle,nil,PChar('Путь где находится программа.exe'),nil,nil,SW_RESTORE); и что бы закрыть свою форму вписать в кнопку же полностью! ShellExecute(Handle,nil,PChar('Путь где находится программа.exe'),nil,nil,SW_RESTORE); Form1.close; Так будет наверное удобнее! :)
    – Tin
    23 окт 2011 в 17:36
2

Смотрите тут раздел "Для продвинутых программистов: Запуск других приложений из вашего" (где-то в середине статьи)

Еще советую открыть для себя ресурс delphisources.ru, разобрано очень много вопросов.

0

проще сделать так(если вся программа ваша):
создаете еще одну форму(например Form2), в событии OnShow главной формы вашей программы напишете:

Form2.ShowModal;
теперь при запуске программы эта форма перекроет основную,на нее добавьте кнопку, при нажатии на которую она закроется(Close), а основная автоматом откроется.
Я делфи уже плохо помню, но смысл думаю поймете.

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.