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 получает имя файла, насколько я понял

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

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

> 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);

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