Параметр

← →
_dEMOn (2004-01-15 23:13) [0]

Здорова всем!
Люди добрые помогите! Ну на пример: у меня есть ексешник я запускаю его так C:\My_Procram\r.exe, я туда дописываю строку readme.txt, получилось так
C:\My_Procram\r.exe readme.txt.

Надо сделать так чтобы в моей програме уже запущенной в
TMemo вывелся текст readme.txt?

Благодарен!

← →
Юрий Зотов (2004-01-15 23:29) [1]

Memo1.Lines.Text := ParamStr(1) - выведет строку "readme.txt"
Memo1.Lines.LoadFromFile(ParamStr(1)) - выведет текст файла.

См. в справке ParamCount, ParamStr и FindCmdLineSwitch.

← →
_dEMOn (2004-01-15 23:52) [2]

А можно сделать чтобы в Windowse Commandere
клацнешь по readme.txt а он и откроется в TMemo?

← →
Юрий Зотов (2004-01-16 00:05) [3]

Для этого надо зарегистрировать расширение txt за своей программой. Только не советую делать это со стандартным расширением txt, лучше придумайте свое собственное. А как сделать - см. здесь:

http://www.delphikingdom.ru/helloworld/samples_win.htm#link3

← →
_dEMOn (2004-01-16 00:07) [4]

А если в CMDLine не фига нет, то мой компилятор
выдаёт ошибку, что путь указан неверно! Я конечно понимаю что
надо делать но незнаю КАК. Как узнать есть ли что-то в
CMDLine или нет?

← →
_dEMOn (2004-01-16 00:10) [5]

uses Registry; var reg: TRegistry; procedure RegisterFileType(prefix:String; exepfad:String); begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CLASSES_ROOT; reg.OpenKey("."+prefix,True); reg.WriteString("",prefix+"\dEMOnTextFile"); reg.CloseKey; reg.CreateKey(prefix+"\dEMOnTextFile"); reg.OpenKey(prefix+"file\DefaultIcon",True); reg.WriteString("",exepfad+",0"); reg.CloseKey; reg.OpenKey(prefix+"file\shell\open\command",True); reg.WriteString("",exepfad+" "%1""); reg.CloseKey; reg.Free; end;

Я уже это сделал но пишит тоже самое.

← →
Юрий Зотов (2004-01-16 00:15) [6]

> _dEMOn (16.01.04 00:07) [4]

То, что Вы читаете ответы - это хорошо. А вот то, что не делаете того, что в них написано - это плохо. Было же сказано - см. справку.

if ParamCount > 0 then ...

А теперь - бегом в хелп. Смотреть про ParamCount.

← →
Anatoly Podgoretsky (2004-01-16 00:17) [7]

_dEMOn (16.01.04 00:07) [4]
ParamCount = 0

← →
_dEMOn (2004-01-16 00:17) [8]

Спасибо большое за ссылку разберусь!

Параметр Найти похожие ветки