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

Вниз

Запуск файла из командной строки   Найти похожие ветки 

 
alois   (2003-07-19 11:09) [0]

Мастера, подскажите, plz, как мне из командной строки открыть текстовый файл в своей программе. Если в cmd.exe пишу:
Путь_к_программе\программа hello.txt, то программа открывается, а файла в ней нет. Или если в контекстном меню Windows выбрать в меню открыть в моей программе, то программа открывается, а файла в ней нет. Что нужно куда прописать? Помогите, кто может исходником или советом.


 
Zacho   (2003-07-19 11:25) [1]

А откуда он там сам по себе возьмется ?
Смотри в хелпе ParamStr и ParamCount.


 
Del   (2003-07-20 03:14) [2]

Немного разъясню:
ParamCount - число парамтров переданных программе при запуске
ParamStr(N) - возврщает N-ый параметр

Вот и пишешь в обработчике onCreate главной формы:
FileName := ParamStr(1); // так если 0-ой параметр, то путь к ехе файлу программы.


 
КибернетическаяМразь   (2003-07-21 14:38) [3]

Program Project1;
Uses SysUtils;Unit1 in "Unit1.pas";
var Fayl:String;
begin
Fayl:=ParamStr(1);
Application.Initialize;
Application.CreateForm(TForm1,Form1);
if Fayl<>"" then Form1.Memo1.Lines.LoadFromFile(Fayl);
Application.Run;
end.


 
alois   (2003-07-26 06:16) [4]

СПАСИБО.



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

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

Наверх




Память: 0.44 MB
Время: 0.009 c
7-20833
Artur
2003-05-26 08:09
2003.08.07
Работа с системой и железом


1-20540
Vintik
2003-07-26 15:33
2003.08.07
Как сделать горячие клавиши?


7-20831
Александр
2003-05-26 08:52
2003.08.07
Изменить шрифт


14-20783
Best Gun
2003-07-21 21:27
2003.08.07
Вот это да. Что это?


7-20834
OpoloXAI
2003-05-23 18:34
2003.08.07
Как переключить раскладку клавиатуры на Украинский язык?





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