Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.043 c
15-1146904170
IronHawk
2006-05-06 12:29
2006.06.04
XML & XSLT шаблоны, где глюк в стыковке?


2-1147375848
SmallCod
2006-05-11 23:30
2006.06.04
Сетка участников соревнований


3-1144763633
Tom
2006-04-11 17:53
2006.06.04
как сравнить два DataSet


1-1146411776
V0va
2006-04-30 19:42
2006.06.04
Как узнать, что запущено полноэкранное приложение?


15-1147128713
Петр
2006-05-09 02:51
2006.06.04
Преобразование из StringGrid в DBGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский