HELP!!!!!!!!!! [D6, Win95/98, WinME]
tupoy © (2003-01-01 23:00:00)
КАК зделать так , что при попытке открыть *.txt файл
запускалась моя прога и открывала его.
MAN-IN-RED (2003-01-01 23:38:00) [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;
Пожалуйста.
Наверх 
ЧАТ |
Орешник |
|
