Текущий архив: 2003.12.19;
Скачать: 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 вся ветка
Текущий архив: 2003.12.19;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.018 c
