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

ShellExecute   Найти похожие ветки 

← →
manevil   (2006-05-15 12:05) [0]

Здравствуйте, мастера. Помогите, плиз. Такая проблема: необходимо, чтобы прога запускала выбранные юзером файлы. Т.е если пользователь выбрал файл *.doc или *.avi то прога запускала бы эти файлы соответсвующим приложением

---

← →
Ega23 ©   (2006-05-15 12:10) [1]

Ну и в чём проблема? uses ShellAPI,
ShellExecute

---

← →
manevil   (2006-05-15 12:19) [2]

делаю вот так:

var pch:Pchar;
...
ShellExecute(0, nil, pch, nil, nil, SW_SHOWNORMAL);
Где pch-полный путь к файлу, но почему-то не запускается

---

← →
balepa ©   (2006-05-15 12:29) [3]

А так ShellExecute(0, "open", pch, nil, nil, SW_SHOWNORMAL);

---

← →
Ega23 ©   (2006-05-15 12:29) [4]

> Где pch-полный путь к файлу, но почему-то не запускается


Покажи, как pch определяешь

---

← →
manevil   (2006-05-15 12:39) [5]

с "open" тоже не работает :(


filef.Text:=opendlg1.FileName;
...
pch:=strtoPChar(files.Text+ExtractShortPathName(filef.text));


---

← →
manevil   (2006-05-15 12:41) [6]

При выполнении действия заметил, что антивирь (Nod32) начинает кушать 90% проц. на пару секунд

---

← →
KygECHuK ©   (2006-05-15 12:43) [7]

надо так:
ShellExecute(0, nil, PChar(files.Text+ExtractShortPathName(filef.text)), nil, nil, SW_SHOWNORMAL);

---

← →
manevil   (2006-05-15 12:49) [8]

Антивирь оказался не причем.

> KygECHuK ©   (15.05.06 12:43) [7]
>
> надо так:
> ShellExecute(0, nil, PChar(files.Text+ExtractShortPathName(filef.
> text)), nil, nil, SW_SHOWNORMAL);

Так тоже не работает :(

---

← →
Gydvin ©   (2006-05-15 12:49) [9]

> При выполнении действия заметил, что антивирь (Nod32) начинает
> кушать 90% проц. на пару секунд

Ну правильно, ты ж наверное прогу запускаешь

---

← →
Gydvin ©   (2006-05-15 12:51) [10]

> files.Text+ExtractShortPathName(filef.text)


Что-то вот эту конструкцию не асилил

---

← →
manevil   (2006-05-15 12:57) [11]

прога копирует файл из места А в место Б, где А - полный путь к файлу (с именем файла есс-но):=filef.text, а Б - files.text - папка куда скопировали
функция ExtractShortPathName получает имя файла, насколько я понял

---

← →
Ega23 ©   (2006-05-15 13:01) [12]

> функция ExtractShortPathName получает имя файла, насколько
> я понял


А ты проверь, ради приличия...

---

← →
MetalFan ©   (2006-05-15 13:02) [13]

> files.Text+ExtractShortPathName(filef.text)

и какое в итоге имя файла передается?!

---

← →
manevil   (2006-05-15 13:02) [14]

все, спасибо! разобрался :)
забыл слэш поставить
ShellExecute(0, nil, PChar(files.Text+"\"+ExtractShortPathName(filef.text)), nil, nil, SW_SHOWNORMAL);


---

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

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



Память: 0.47 MB
Время: 0.025 c