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

Регистрация файла   Найти похожие ветки 

← →
killer ©   (2003-12-05 18:58) [0]

Регистрирую формат файла:

uses
Registry;
....................

public
{ Public declarations }
procedure RegisterFileType(ext: string; FileName: string);
............

procedure TForm1.RegisterFileType(ext: string; FileName: string);
var
reg: TRegistry;
begin
reg:=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_CLASSES_ROOT;
OpenKey("."+ext,True);
WriteString("",ext+"file");
CloseKey;
CreateKey(ext+"file");
OpenKey(ext+"file\DefaultIcon",True);
WriteString("",FileName+",0");
CloseKey;
OpenKey(ext+"file\shell\open\command",True);
WriteString("",FileName+" "%1"");
CloseKey;
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterFileType("DelphiWorld", Application.ExeName);
end;

Так вот при запуске файла мне нужно чтобы загрузилась программа, и загрузила этот файл. А у меня загружается программа, а файл в ней нет :((( Мне кажется, что процедуру открытия файла надо как-то пометить чтоли........ Что делать? Помогите пожалуйста!

---

← →
killer ©   (2003-12-05 19:03) [1]

АУ!!!

---

← →
hooky-mars   (2003-12-05 19:06) [2]

Когда пишеш путь к прогрк надо доприсать через пробел %1
А в прогре искать имя файла через ParamStr(1)

---

← →
hooky-mars   (2003-12-05 19:07) [3]

> WriteString("",FileName+" "%1"");

Двойные ковычки не нужны

---

← →
killer ©   (2003-12-05 19:08) [4]

я дописал:
WriteString("",FileName+" %1");

А искать через ParamStr(1) в каком событии? В OnCreate ?

---

← →
hooky-mars   (2003-12-05 19:10) [5]

> killer © (05.12.03 19:08) [4]

Где тебе надо, хош и в онкреате

---

← →
killer ©   (2003-12-05 19:13) [6]

hooky-mars Слушай... сейчас что-то в книге посмотрел эту функцию ParamSTR что-то не нашел.... :((

---

← →
hooky-mars   (2003-12-05 19:16) [7]

> killer © (05.12.03 19:13) [6]



....
var NameFile:String;
begin
NameFile:=ParanStr(1);
//Делаеш со своим файлом что хош

В книгах все написать не возмжно(п окрайней мере за один присест). Моно еще смотреть хелп в делфях

---

← →
killer ©   (2003-12-05 19:18) [8]

hooky-mars Спасибо тебе! Сейчас попробую......

---

← →
hooky-mars   (2003-12-05 19:20) [9]

> ParanStr(1);

Косяк ParamStr(1);

---

← →
hooky-mars   (2003-12-05 19:27) [10]

> RegisterFileType("DelphiWorld", Application.ExeName);

"DelphiWorld" -- Это у тебя такое расширение????

---

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

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



Память: 0.47 MB
Время: -0.985 c