Вниз
Скачать: CL | DM;

приложение по умолчанию   Найти похожие ветки 

← →
dyuss   (2005-02-08 03:48) [0]

не знаю, может глупый вопрос, но всё таки:
мне надо сделать моё приложение приложением по умолчанию.
Вопрос сводится к тому как получить имя файла, с помощью которого я запускаю свою прогу. Ну на примере текстого редактора, как узнать какой файл мне читать в Memo.


← →
alpet   (2005-02-08 10:41) [1]

Можеть быть про параметры приложения, тогда надо использовать функцию ParamStr . А что бы твоя программа открывала файлы определенного типа (с определенным расширением), ее надо добавить в реестр. Или использовать контекстное меню (в Win2k/XP), "Открыть с помощью>Выбрать программу..."


← →
beatles_bntu ©   (2005-02-08 13:53) [2]

uses
 ...,Registry;

var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CLASSES_ROOT;
 Reg.LazyWrite := False;

 Reg.OpenKey(".bit",True);
 Reg.WriteString("","beatles");
 Reg.CloseKey;

 Reg.OpenKey("beatles\shell\open\command",true);
 Reg.WriteString("",Application.ExeName+" %1");
 {это значит что в твою программу строка запуска будет передоватся первым тапаметром (ну типа вторым ведь есть еще 0) т.е. чтобы те узнать откуда и кем была вызвана твоя прога надо зделать следующие ParamStr(1) вернет путь к той проги которая тя застила}
 Reg.CloseKey;

 Reg.OpenKey("beatles\DefaultIcon",True);
 Reg.WriteString("",Application.ExeName+",0");
 {Ну это типа номер иконки в твоей проги которая будетиспользоватся бля всех файлов с расширением  bit}

 Reg.CloseKey;
 Reg.Free;



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c
1-1110304064
vertal
2005-03-08 20:47
2005.03.20
Аналог DecimalSeparator для writeln


14-1109871817
Жук Андрій
2005-03-03 20:43
2005.03.20
Кто-то хотел скачать фото нашего Президента в высоком качестве?


3-1108656969
juice
2005-02-17 19:16
2005.03.20
привилегии на выполнение ХП для роли


3-1108636507
msguns
2005-02-17 13:35
2005.03.20
Изменение имени IB-процедуры в IBExpress


1-1109795025
starlit
2005-03-02 23:23
2005.03.20
как узнать что мышка ушла с объекта - Panel1?




   Наверх