Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Насчёт формата файла для программы, но...

SleD © (2002-06-05 16:12:00)
Вот, например, когда вы просто открываете Winamp, то появляется его окно и всё. А когда запускаете *.mp3, ассоц. с ним, то делается то же самое, но ещё и начинает сразу же обрабатываться этот файл и играет музыка. Уловили в чём разница. Я конечно не плеер пишу, но как сделать типа такого. Ассоц. файлы я делать умею, но при клике на них всего лишь запускается прога. Т.е. как обычный ярлык. А мне надо, чтобы кликнул и в Memo1 на Form1 сразу загрузилсось содержимое файла

MBo (2002-06-06 13:22:00) [1]
for i :=1 to ParamCount
так сработало.
кстати, в paramstr(0) лежит имя exe

Agent Smith (2002-06-06 09:42:00) [2]
ParamStr() , если я не ошибаюсь дает адрес файла, по которому кликнули, а не exe-шник приложения, поэтому можно определить файл-ресурс, открать его програмно и считывать что угодно.

Song (2002-06-06 08:48:00) [3]
Не надо ничего убирать, Вы уважаемый, Cyborg, думайте прежде чем чего-нить ляпнуть.

cyborg (2002-06-05 23:29:00) [4]
SleD - -1 убери :-)

Anatoly Podgoretsky (2002-06-05 20:48:00) [5]
SPeller © (05.06.02 18:02)
На всякий случай :-)

SleD (2002-06-05 20:30:00) [6]
В OnCreate поставил то, что сказал MBo. Запускаю прогу в таком виде:

proga /? , но сообщение не выдаётся!
Что не так?

Song (2002-06-05 19:45:00) [7]
2SPeller © (05.06.02 18:02)
Для PlaySound()

SPeller (2002-06-05 18:02:00) [8]
2 MBo © (05.06.02 16:38)

А зачем uses mmsystem;??

MBo (2002-06-05 16:38:00) [9]
uses mmsystem;
var i: Integer;
begin
for i := 0 to ParamCount – 1 do
begin
if ParamStr(i)="/?" then
ShowMessage("нет пока хелпа ;(");
if Pos(".wav",ParamStr(i))>0 then
PlaySound(Pchar(ParamStr(i)),0,SND_FILENAME);
end;

SleD (2002-06-05 16:21:00) [10]
MBo а можно поподробнее, а то я в программировании ещё не сильно шарю :-)

MBo (2002-06-05 16:19:00) [11]
ParamCount ParamStr(i)

SleD (2002-06-05 16:18:00) [12]
Да я понимаю, но код не подскажешь?

cult (2002-06-05 16:15:00) [13]
по-моему, это назывется как-то типа commandline, функция, которая забирает параметры из командной строки. обработай ее - и вперед, грузи файл в memo

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »