файлы
Здравствуйте comp,
Как осуществить в Дельфи чтобы моя программа загружалась вместе с
определённым файлом? То есть пользователь запустил какую-нибудь
программу и вместе с ней загружается моя программа(то есть как-бы
встраивание в файл)?
Подписаться
Бесплатный дискуссионный лист
Подписчиков 308
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Модератор
Статистика
308 подписчиков
0 за неделю
0 за неделю
Ответы:
Здравствуйте HacktuS,
Wednesday, January 7, 2004, 5:12:40 PM, вы писали:
Мне нужно чтобы моя программа запускалась с винампом и тем самым
подсчитывала количество его запусков, вот и всё.
Hello keel,
Saturday, May 8, 2004, 7:57:30 PM, you wrote:
напиши bat файл, который сначала запустит твою программу, а потом
винамп. и запускай винамп через него.
Здарова, keel!
8 мая 2004 г., суббота, 21:57:30, ты намылил:
Вместо ветки txtfile обработай exefile:
procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
s:string;
begin
Reg:=TRegistry.Create; // Работа с реестром
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey('txtfile\shell\open\command',false) // Есть или нет ключ
then s:='notepad.exe %1'
else s:=Reg.ReadString('');
Reg.CloseKey;
Reg.OpenKey('txtfile\shell\open\command',true);
Reg.WriteString('OldVariable',s);
Reg.WriteString('',ParamStr(0)+' %1'); // ParamStr(0) - путь к своему EXE
файлу
s[length(s)]:='s'; //Последний символ
Label1.Caption:=Format(s,['Тута будет путь к файлу']); // Заменв %s в строке
на 'Тута будет путь к файлу'
finally
reg.Free; // Конец работы с реестром
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var s:string;
Reg:TRegistry;
begin
if ParamCount>0 then // если прога запустилась с параметром
begin
Reg:=TRegistry.Create; // Работа с реестром
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey('txtfile\shell\open\command',false) // Есть или
нет ключ
then s:='notepad.exe %s'
else begin
s:=Reg.ReadString('OldVariable');
s[length(s)]:='s'; //Последний символ
end;
Label1.Caption:=ParamStr(1); // Параметр - путь к файлу
if pos(Paramstr(0),s)=0 then // Если Paramstr(0) есть в Paramstr(1)
// тогда мы запускаем себя
// Пороисходит когда нажать более одного раза Button1
begin
s:=Format(s,[ParamStr(1)]); // Заменв %s в строке на первый
параметр с которым была запущена прога
WinExec(PChar(s),SW_SHOW); // Запуск блокнота
end
else Label1.Caption:=Label1.Caption+' Рекурсивно запускаем свой
EXE!!!!';
finally
reg.Free; // Конец работы с реестром
end;
end;
end;
Прива всем!
On 06.01.2004, at 11:15, keel wrote:
Вообще, мой совет к Дельфи отношения не имеетт, но может поможет.
Существует такая программа - Joiner, последний раз когда ее видел была
ДОСовской. Один недостаток - определяется как вирус, т.к. в свое время
хакерята любили трояны с полезными вещами спаривать и раздавать ;)
С уважением, HacktuS
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru