Скачать: CL | DM;

События, нажатие кнопки   Найти похожие ветки 

← →
eugeniya2006 ©   (2006-11-07 00:12) [0]

Подскажите пожалуйста, есть ли в 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

---

← →
Ketmar ©   (2006-11-07 00:19) [1]

нет. зато в WinAPI есть. ShellExecute(), например.

---

← →
eugeniya2006 ©   (2006-11-07 00:30) [2]

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

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

---

← →
Ketmar ©   (2006-11-07 00:32) [3]

в "надмозги", в "надмозги". а то ведь я отвечу, не сдержусь.

---

← →
Percent   (2006-11-07 00:42) [4]

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

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

---

← →
KilkennyCat ©   (2006-11-07 00:45) [5]

> [4] Percent   (07.11.06 00:42)

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

---

← →
eugeniya2006 ©   (2006-11-07 01:05) [6]

> 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"
чтобы это работало.

---

← →
Ketmar ©   (2006-11-07 01:07) [7]

ShellExecute(), F1.
если не помогло, читать сюда: http://antigreen.org/bioreactor/

---

← →
Германн ©   (2006-11-07 01:08) [8]

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

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

---

← →
Ketmar ©   (2006-11-07 01:11) [9]

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

---

← →
Германн ©   (2006-11-07 01:17) [10]

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

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

---

← →
eugeniya2006 ©   (2006-11-07 01:21) [11]

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

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

---

← →
Ketmar ©   (2006-11-07 01:33) [12]

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

---

← →
Ketmar ©   (2006-11-07 01:35) [13]

автору: намекаю. есть такая штука -- справка. обычно её, конечно, удаляют (много места занимает, зараза!), но ты места не пожалей. поставь её всё-таки. и почитай. если не прозреешь -- тогда уже ничего не поможет, только метла.

---

← →
Германн ©   (2006-11-07 01:47) [14]

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

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

---

← →
Ученик чародея ©   (2006-11-07 01:56) [15]

> 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 02:09) [16]

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

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

---

← →
Percent   (2006-11-07 09:04) [17]

2 Ученик чародея ©

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.047 c