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

Вниз

Парадокс с ShellExecute   Найти похожие ветки 

 
vslabchenko ©   (2009-07-02 19:39) [0]

Хочу добиться следующего:есть база книг (Access),осуществляется поиск нужной книги,щелчком на кнопке она должна открываться.
На форме есть Grid,Navigator,Button (открытие файла с книгой) и DBEditEh (компонент из ExLib в котором показывается название самого файла с книгой,например: odessa.pdf).
Использую функцию ShellExecute.При таком написании кода:

ShellExecute (Form3.Handle, nil, "D:\BOOK BASE\DATA\odessa.pdf", nil ,nil, SW_SHOW);

происходит открытие файла,но когда необходимо открыть файл,который будет введен в
DBEditEh - файл не открывается.Прописываю следующий код:

ShellExecute (Form3.Handle, nil,PChar( "D:\BOOK BASE\DATA\"+(DBEditEh1.Text)), nil ,nil, SW_SHOW);

При этом открываются только файлы с расширением .pdf, все остальные (например, doc,djvu,rtf,txt и др.)-не открываются...

В чем моя ошибка? Спасибо.


 
Игорь Шевченко ©   (2009-07-02 19:54) [1]


> В чем моя ошибка?


а посмотреть, то, что получается в PChar( "D:\BOOK BASE\DATA\"+(DBEditEh1.Text)) ?


 
жж   (2009-07-02 20:13) [2]

Короче, с указателями на чар такая конструкция не проходит
заводи временную переменную
var
 s: string;
и исползуй ее
s:="D:\BOOK BASE\DATA\"+DBEditEh1.Text;
ShellExecute (Form3.Handle, nil,PChar(s), nil ,nil, SW_SHOW);


 
Anatoly Podgoretsky ©   (2009-07-03 09:05) [3]

> vslabchenko  (02.07.2009 19:39:00)  [0]

Подземный стук


 
Dennis I. Komarov ©   (2009-07-03 09:20) [4]


> жж   (02.07.09 20:13) [2]

А если юзаем pdf, то PChar( ведет себя инатче?

> При этом открываются только файлы с расширением .pdf, все
> остальные (например, doc,djvu,rtf,txt и др.)-не открываются.
> ..

Покажи какие файлы открывал...



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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
15-1246084442
Student85236
2009-06-27 10:34
2009.08.30
Как жестко перегрузить Windows XP


15-1245481247
Gydvin
2009-06-20 11:00
2009.08.30
Детские сиденья


2-1246608612
NIIL
2009-07-03 12:10
2009.08.30
TRegExp и парсинг HTML


15-1246431478
pasha_golub
2009-07-01 10:57
2009.08.30
Как вызвать стандартный property editor для свойства?


1-1212955915
andreil
2008-06-09 00:11
2009.08.30
Дельфийский интерфейс для Сишных прог





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский