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

Вниз

Проблема открытия файла через контекстное меню Windows.   Найти похожие ветки 

 
Demi   (2004-04-27 22:46) [0]

Здравствуйте проблема открытия файла через контекстное меню  Windows.

У меня есть программа которая работает с файлами *.ilo (простые переименованые текстовые файлы). Когда пользователь клацает правой кнопкой мыши на этом файле, появляется контекстное меню. В этом меню есть команда "Открыть редактором", которая перед этим создана мной в реестре. Если нажать на эту команду файл должен загрузиться в эту мою программу. Программа появляется, но вот вопрос: откуда узань на каком файле клацнул пользователь?

(В реестре вроде надо прописивать "Моя программа""%1")


 
Yanis ©   (2004-04-27 22:53) [1]

Путь к файлу будет ParamStr(1).


 
Demi   (2004-04-27 22:57) [2]

Так просто 1.
Memo1.Lines.LoadFromFile(ParamStr(1));


 
Yanis ©   (2004-04-27 23:07) [3]

Ага.


 
Demi   (2004-04-27 23:12) [4]

Ошибочка!!!
Cannt open "". Системе не удаётся найти указаный путь.


 
Алхимик ©   (2004-04-27 23:17) [5]

Ну дык параметра нет.
ParamCount скажет тебе сколько параметров передано.
Меню Run/Parametrs облегчит отладку программы в IDE.


 
Demi   (2004-04-27 23:20) [6]

Я понимаю что дык но как мне его узнать если это всё происходит когда пользователь выбирае команду в меню, а не тогда когда я компилирую.


 
Yanis ©   (2004-04-27 23:24) [7]


try
...
except
...
end;


 
Demi   (2004-04-27 23:27) [8]

Это всё я прекрасно понимаю но скомпилировать получается, а вот когда я выбираю команду из меню, то мне такие маюки об ошибке и говорят


 
Алхимик ©   (2004-04-27 23:30) [9]

В 17 строке ошибка.


 
Demi   (2004-04-27 23:33) [10]

Непонял.


 
Алхимик ©   (2004-04-27 23:35) [11]

Код, где ошибка, дай.
Пока код не дал, считаем что ошибка в 17-й строке, 3-го модуля.


 
Demi   (2004-04-27 23:40) [12]

begin

try
Memo1.Lines.LoadFromFile(ParamStr(1));
except
//
end;
end;


Говорит что ненаходит файл с именем "".


 
Алхимик ©   (2004-04-27 23:46) [13]

try
  if ParamCount = 1 then // если параметров ровно один
     Memo1.Lines.LoadFromFile(ParamStr(1));
except
  //
end;

В продолжение [5]:
В меню Run|Parametrs, закладка Local, окно Parametrs
укажи какое нить имя существующего файла.


 
Demi   (2004-04-27 23:47) [14]

Но это не решает проблемы.


 
Yanis ©   (2004-04-27 23:53) [15]

Ну студент....

1. Откомпилируй программу.
2. Создай к ней ярлык
Например в ярлыке будет такой путь: "D:\myprog\prog.exe"(с ковычками).
4. В ярлыке в поле "Объект" допиши - пункт 3 +пробел+D:\myprog\prog.pas
(или другой txt файл, нам же главное проверить работает или нет)
5. D OnCreate формы напиши
 Memo1.Lines.LoadFromFile(ParamStr(1));

А лучше всего открывай программу с ключом, например если есть ключик /LF, тогда и загружай файл, а нету ключика, то всё идёт по дефолту.


 
Yanis ©   (2004-04-27 23:53) [16]

Ну студент....

1. Откомпилируй программу.
2. Создай к ней ярлык
Например в ярлыке будет такой путь: "D:\myprog\prog.exe"(с ковычками).
4. В ярлыке в поле "Объект" допиши - пункт 3 +пробел+D:\myprog\prog.pas
(или другой txt файл, нам же главное проверить работает или нет)
5. D OnCreate формы напиши
 Memo1.Lines.LoadFromFile(ParamStr(1));

А лучше всего открывай программу с ключом, например если есть ключик /LF, тогда и загружай файл, а нету ключика, то всё идёт по дефолту.


 
Yanis ©   (2004-04-27 23:55) [17]

Это нервы :)


 
Demi   (2004-04-28 00:11) [18]

Извини отключился. Сейчас попробую.


 
Demi   (2004-04-28 01:13) [19]

Большое при большое спасибо!!!!!!!!!!!!!!!!!!!!!


 
Yanis ©   (2004-04-28 01:40) [20]

Всегда пожалуйста.
:)))



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

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

Наверх





Память: 0.48 MB
Время: 0.037 c
4-1080774742
GanibalLector
2004-04-01 03:12
2004.05.16
InitializeCriticalSection


1-1083059717
rexelf
2004-04-27 13:55
2004.05.16
ProgressBar при формировании запроса...


4-1080740994
Lobster
2004-03-31 17:49
2004.05.16
Как добавить русский язык в Windows?


1-1083227462
AmazdDexter
2004-04-29 12:31
2004.05.16
Random Form Show


14-1082950931
Думкин
2004-04-26 07:42
2004.05.16
Стимулирование качаства труда





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