Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
ВнизЗапуск файлов без winexec и ShellExecute... Найти похожие ветки
← →
Gizza © (2006-02-13 16:43) [0]Доброго времени.
Перейду сразу к вопросу:
Вообщем, мне надо сделать кнопку, которая бы запускала определенный файл. Впринципе, это легко:
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec("proga.exe",SW_RESTORE);
end;
Но путь к файлу (да и сам файл) прописаны в edit1, логично было бы написать:
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec("edit1.text",SW_RESTORE);
end;
Но это не работает... Без кавычек тоже ни как...
С ShellExecute тоже не выходит...
Помогите пожалулуйста.
← →
Anatoly Podgoretsky © (2006-02-13 16:46) [1]winexec не предназначен для запуска файлов, только программ.
А ShellExecute может, если настроена ассоциация.
← →
kaZaNoVa © (2006-02-13 16:49) [2]CreateProcess
← →
Рамиль © (2006-02-13 17:28) [3]... PChar(Edit1.Text) ...
← →
Кефир87 © (2006-02-13 17:32) [4]
> Рамиль © (13.02.06 17:28) [3]
@Edit1.Text[1]
8))
← →
Плохиш © (2006-02-13 17:44) [5]
> Но это не работает... Без кавычек тоже ни как...
Можно перевести это всё на русский язык.
← →
azl © (2006-02-13 18:05) [6]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi, StdCtrls;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, PChar("Open"), PChar(Edit1.Text), nil, PChar(Edit1.Text), SW_SHOW);
end;
← →
Gizza © (2006-02-15 11:21) [7]> Можно перевести это всё на русский язык.
Это не работает:winexec("edit1.text",SW_RESTORE);
(ну всмыслеwinexec
счиетаетedit1.text
программой, а не "местом", где она прописана)
Без кавычек тоже ни как...winexec(edit1.text,SW_RESTORE);
Говорит: Undeclared identifier: "proga"
← →
Gizza © (2006-02-15 11:22) [8]> Можно перевести это всё на русский язык.
Это не работает:winexec("edit1.text",SW_RESTORE);
(ну всмыслеwinexec
счиетаетedit1.text
программой, а не "местом", где она прописана)
Без кавычек тоже ни как...winexec(edit1.text,SW_RESTORE);
Говорит: Undeclared identifier: "proga"
← →
Gizza © (2006-02-15 11:22) [9]> Можно перевести это всё на русский язык.
Это не работает:winexec("edit1.text",SW_RESTORE);
(ну всмыслеwinexec
счиетаетedit1.text
программой, а не "местом", где она прописана)
Без кавычек тоже ни как...winexec(edit1.text,SW_RESTORE);
Говорит: Undeclared identifier: "pr
← →
Плохиш © (2006-02-15 11:30) [10]
> Это не работает:
> winexec("edit1.text",SW_RESTORE);
> (ну всмысле winexec счиетает edit1.text программой, а не
> "местом", где она прописана)
А прочитать справку по winexec религия не позволяет?
> Без кавычек тоже ни как...
> winexec(edit1.text,SW_RESTORE);
> Говорит: Undeclared identifier: "proga"
Судя по "Undeclared identifier" это сообщение компилятора, а т.к. в приведённой строке букв "proga" не наблюдается, то ответ один "Исправь ошибку в 17й строке".
PS.winexec(edit1.text,SW_RESTORE);
является вполне рабочим участком кода, будет выполнена команда, записанная в edit1.text.
← →
КиТаЯц © (2006-02-15 12:43) [11]Может это надо?
winexec(edit1.text+"\"+"proga.exe",SW_RESTORE)
????
← →
Zeqfreed © (2006-02-15 12:49) [12]тогда уж так:
WinExec(IncludeTrailingPathDelimiter(Edit1.Text) + "proga.exe", SW_RESTORE);
;-)
← →
ExE © (2006-02-16 10:29) [13]winexec(PCHAP(edit1.text),SW_RESTORE);
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.015 c