Глючит открытие файлов способом ShellExecute

← →
DreymanD (2004-07-30 20:45) [0]

Привет всем мастерам!
У меня глючит команда ShellExecute. У меня на форме есть ComboBox1, через OpenDialog добавляю файл в его Items. Затем нажимаю на Button. После этого файл, который находится в КомбоБоксе должен открытся. Но у меня он не открывается! Открывается только папка! Что делать? Для "Буттон" я использовал команду:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
shellexecute(combobox1.handle, "open", pchar(extractfilepath(combobox1.items.Strings[combobox1.ItemIndex])+s),nil,nil, sw_minimize);
end;
Что в ней не так?

← →
olookin © (2004-07-30 20:54) [1]

Мне кажется, что надо

shellexecute(combobox1.handle, "open", pchar(extractfilepath(combobox1.items.Strings[combobox1.ItemIndex])+"\"+s),nil,nil, sw_minimize);

← →
Юрий Зотов © (2004-07-30 20:59) [2]

Ну, Вы же сами себе уже ответили: "Глючит открытие файлов способом ShellExecute в D7 под WinME".

А если все же признать, что глючит вовсе не оно, то неверно combobox1.handle и пустая строка s.

← →
olookin © (2004-07-30 21:05) [3]

Юрий Зотов © (30.07.04 20:59) [2]

Насчет хэндла комбобокса не придратся... А вот насчет отсутствия слэша можно - особенно если s - это просто имя файла

← →
Юрий Зотов © (2004-07-30 22:16) [4]

> olookin © (30.07.04 21:05) [3]

Слэш - это само собой. Только еще неплохо было бы и хоть что-нибудь в S запихнуть. Потому как файл c пустым именем вряд ли откроется.

← →
DreymanD (2004-07-30 22:30) [5]

olookin © (30.07.04 20:54) [1]
Неа, все равно открывает папку... Х-D)...

Юрий Зотов © (30.07.04 20:59) [2]
Да можно и без S:string;
Просто мне надо, чтоб файл, указанный в Комбо боксе открывался нажатием на Буттон :)

← →
Алхимик © (2004-07-30 22:40) [6]

[5] DreymanD (30.07.04 22:30)
pchar(combobox1.items.Strings[combobox1.ItemIndex])

Значит не заполнен у тебя комбобокс... Или неправильно заполнен... Ты пропобуй сначала проверить работу:

shellexecute(combobox1.handle, "open", "C:\1.txt",nil,nil, sw_minimize);

Если не работает при таком варианте - значит что то не работает до вызова ShellExecute или у тебя вообще какой нибудь редхат 9.0

← →
tamroF (2004-07-30 23:19) [8]

в сомбе текущий item был "c:\01.bmp"

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
ShellExecute(ComboBox1.handle, "open", pchar(ComboBox1.Text),pchar(ExtractFilePath(ComboBox1.Text)),nil, sw_show);
end;

procedure TForm1.Button1Click(Sender: TObject); var s:string; begin ShellExecute(ComboBox1.handle, "open", pchar(ComboBox1.Text),pchar(ExtractFilePath(ComboBox1.Text)),nil, sw_show); end;

работает..

← →
DreymanD (2004-07-31 19:50) [9]

tamroF (30.07.04 23:19) [8]
Оооо.. спасибо! Теперь все отлично работает :)))
В любом случае, спасибо всем!!! ;-D

Глючит открытие файлов способом ShellExecute Найти похожие ветки