Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Вниз
События, нажатие кнопки Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.044 c