Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

События, нажатие кнопки [D6, D7, Win95/98]

eugeniya2006 © (2006-11-07 00:12:00)
Подскажите пожалуйста, есть ли в Delphi 6 или 7 функции открытия файла и запуска программы. Чтобы это выглядело примерно так:

procedure TForm1.Button1Click(Sender:TObject);
begin
...
if s=1 then "открыть файл f1.doc"
if s=2 then "открыть файл f2.doc"
if s=3 then messagedlg ('',mtinformation,[mbok],0);
...
end

procedure TForm1.Button2Click(Sender:TObject);
begin

"запустить программу t.exe"

end

Percent (2006-11-07 09:04:00) [1]
2 Ученик чародея ©

...а код форматировать ты до сих пор не научился...

Германн (2006-11-07 02:09:00) [2]

> Ученик чародея © (07.11.06 01:56) [15]

Уж если ты такой добрый, так ответь на сабж полностью!
А то ведь вопросы не прекратятся!

Ученик чародея (2006-11-07 01:56:00) [3]

> eugeniya2006 © (07.11.06 01:05) [6]
> а сдавать надо
> через две недели.

Только из-за того что не в последнюю ночь.

uses ...ShellAPI...
procedure TForm1.Button1Click(Sender:TObject);
begin
...
if s=1 then
ShellExecute(Application.Handle,'open','f1.doc','',Pchar(ExtractFilePath(Applica tion.EXEName)),SW_MAXIMIZE);
if s=2 then
ShellExecute(Application.Handle,'open','f2.doc','',Pchar(ExtractFilePath(Applica tion.EXEName)),SW_MAXIMIZE);
if s=3 then messagedlg ('',mtinformation,[mbok],0);
...
end

Германн (2006-11-07 01:47:00) [4]

> eugeniya2006 © (07.11.06 01:21) [11]
>
>
> > Не, ну может она возьмётся всё-таки за ум. Две недели
> -
> > весьма серьёзный срок! За две недели можно очень многому
> > научиться, было бы желание.
>
> Были бы учителя.

С этим, конечно, очень часто проблемы. Но спроси сама себя. Ты тут на форуме ишешь кого? Учителя или "репетитора"? Первый требует самостоятельной работы твоей головы и помогает исправлять ошибки. Второй "вдалбливает" готовые решения. Но второй требует оплаты своих услуг и не гарантирует то, что ты после некоторого времени не будешь снова нуждаться в его помощи!

Ketmar (2006-11-07 01:35:00) [5]
автору: намекаю. есть такая штука -- справка. обычно её, конечно, удаляют (много места занимает, зараза!), но ты места не пожалей. поставь её всё-таки. и почитай. если не прозреешь -- тогда уже ничего не поможет, только метла.

Ketmar (2006-11-07 01:33:00) [6]
>[11] eugeniya2006(c) 7-Nov-2006, 01:21
>Были бы учителя. А то дали задание и мучайся как хочешь.
представляю Вирта, сидящего за столом и грустно восклицающего: "эх, были бы учителя! я бы такой язык написал! я уже даже название придумал -- pascal. и псевдокод сделал: begin CompileProgram(); end.только что-то с CompileProgram() нелады. где бы компонентик найти... ой, чего это я? Delphi ж ещё не написали... %-("

eugeniya2006 (2006-11-07 01:21:00) [7]

> Не, ну может она возьмётся всё-таки за ум. Две недели -
> весьма серьёзный срок! За две недели можно очень многому
> научиться, было бы желание.

Были бы учителя. А то дали задание и мучайся как хочешь. Подходила с вопросом к преподу, а он ответил что сам делфи в глаза никогда не видел. Как такому сдавать?

Германн (2006-11-07 01:17:00) [8]

> Ketmar © (07.11.06 01:11) [9]
>
> >[8] Германн(c) 7-Nov-2006, 01:08
> да. это значит, что нам ещё две недели веселиться.
>

Не, ну может она возьмётся всё-таки за ум. Две недели - весьма серьёзный срок! За две недели можно очень многому научиться, было бы желание.

Ketmar (2006-11-07 01:11:00) [9]
>[8] Германн(c) 7-Nov-2006, 01:08
да. это значит, что нам ещё две недели веселиться.

Германн (2006-11-07 01:08:00) [10]

> а сдавать надо через две недели.

Ну это РЕКОРД!!! Большинство такие вопросы задаёт накануне! :-)

Ketmar (2006-11-07 01:07:00) [11]
ShellExecute(), F1.
если не помогло, читать сюда: http://antigreen.org/bioreactor/

eugeniya2006 (2006-11-07 01:05:00) [12]

> KilkennyCat © (07.11.06 00:45) [5]
> > [4] Percent (07.11.06 00:42)
>
> Неверно! "Пуск" уже используется. Для разршения конфликта
> имен надо придкмать однокеренное, например: "Запуск", "Впуск",
> "Выпуск", "Отпуск", "Припуск", "Спуск", "Пропуск" и т.д.
>

Пожалуйста, подскажите как надо написать, а то я совсем запуталась. Вообще ничего не получается, а сдавать надо через две недели.
Что нужно изменить в
"procedure TForm1.Button1Click(Sender:TObject);
begin
...
if s=1 then "открыть файл f1.doc"
if s=2 then "открыть файл f2.doc"
if s=3 then messagedlg ('',mtinformation,[mbok],0);
...
end"
чтобы это работало.

KilkennyCat (2006-11-07 00:45:00) [13]
> [4] Percent (07.11.06 00:42)

Неверно! "Пуск" уже используется. Для разршения конфликта имен надо придкмать однокеренное, например: "Запуск", "Впуск", "Выпуск", "Отпуск", "Припуск", "Спуск", "Пропуск" и т.д.

Percent (2006-11-07 00:42:00) [14]
и как его запустить?
и может ли он от кнопки работать?

Можно использовать кнопку, но только в обязательном порядке кнопка должна быть с заголовокм "Пуск". Иначе не заработает.

Ketmar (2006-11-07 00:32:00) [15]
в "надмозги", в "надмозги". а то ведь я отвечу, не сдержусь.

eugeniya2006 (2006-11-07 00:30:00) [16]

> Ketmar © (07.11.06 00:19) [1]
> нет. зато в WinAPI есть. ShellExecute(), например.

и как его запустить?
и может ли он от кнопки работать?

Ketmar (2006-11-07 00:19:00) [17]
нет. зато в WinAPI есть. ShellExecute(), например.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »