Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

Выполнение программ   Найти похожие ветки 

 
veles   (2001-12-27 08:44) [0]

Извините за непонимание,
почему, когда путь к программе указывается явно:
WinExec ("c:\Probe\Probe.exe", SW_SHOW);
все работает, а если взять путь вот таким образом:

Edit2.Text := """ + Label1.Caption + "\" + Edit1.Text + """;
WinExec ("Edit2.Text", SW_SHOW);

То в лучшем случае просто ничего не происходит, если я убираю кавычки:

Edit2.Text := Label1.Caption + "\" + Edit1.Text;

то просто выдает ошибку типов...


 
MBo ©   (2001-12-27 08:59) [1]

>WinExec ("Edit2.Text", SW_SHOW);
так ты пытаешься выполнить программу edit2.Text ;)

WinExec требует первым параметром PChar
если строка в кавычках (константа), она неявно приводится к PChar
если передаешь строковую переменную, приводи сам
WinExec (PChar(Edit2.Text), SW_SHOW);





 
veles   (2001-12-27 09:43) [2]

procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec (PChar(Edit2.Text), SW_SHOW);
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
Edit2.Text := Label1.Caption + "\" + Edit1.Text;
end;

Где ошибка ? {Invalid tipe cast}


 
MBo ©   (2001-12-27 10:00) [3]

у меня работает


 
Monk   (2002-01-06 16:13) [4]

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
Edit2.Text := Label1.Caption + "\" + Edit1.Text;
WinExec (Pchar(Edit2.Text), SW_SHOW);
end;




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

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
3-75537
EternalWonderer
2001-12-19 12:26
2002.01.24
CREATE DOMAIN BOOL AS CHAR(1) DEFAULT N CHECK (VALUE IN ( Y , N ));


3-75500
xmapa
2001-12-20 17:43
2002.01.24
ПОСЛЕДНИЙ ПРЕДСМЕРТНЫЙ ВОПЛЬ УТОПАЮЩЕГО!!!!


1-75553
Анатолий
2002-01-06 06:21
2002.01.24
Литература по отчётам


3-75519
ev
2001-12-19 16:54
2002.01.24
ограничения


1-75587
Foy
2002-01-06 14:43
2002.01.24
Сохранение и вызов файла