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

Вниз

HELP!!!!!!!!!!   Найти похожие ветки 

← →
tupoy   (2003-01-01 23:00) [0]

КАК зделать так , что при попытке открыть *.txt файл запускалась моя прога и открывала его.

---

← →
MAN-IN-RED   (2003-01-01 23:38) [1]

Для начала нужно зарегистрировать прогу для данного типа файлов, чтобы при открытии такого файла запускалась твоя прога:

uses Registry; //Чтобы не было лишних вопросов…
…

procedure TForm1.RegisterFile(Prefix: String; ExePfad: String);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_CLASSES_ROOT;
OpenKey("."+Prefix,True);
WriteString("",Prefix+"File");
CloseKey;
CreateKey(Prefix+"File");
OpenKey(Prefix+"File\DefaultIcon",True);
WriteString("",ExePfad+",0");
CloseKey;
OpenKey(Prefix+"File\Shell\Open\Command",True);
WriteString("",ExePfad+" "%1"");
CloseKey;
Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterFile("txt",Application.ExeName);
{Эту штуку можешь сделать один раз}
end;

Ну вот и все.

Ах, ну да, тут еще такое дело есть:
При открытии твоей проги, нужно знать имя файлика который ломится:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(ParamStr(1));
end;

Пожалуйста.

---

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

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

Наверх

Память: 0.44 MB
Время: 0.009 c