Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
ВнизАвтооткрытие Найти похожие ветки
← →
AXe (2002-09-26 20:03) [0]Я хочу, чтобы после щелчке на определённом типе файлов, автоматически открывалась моя прога, и в ней автоматически открывался этот файл.
← →
. (2002-09-26 22:19) [1]хотеть много можно
paramstr()+regedit
← →
Rouse_ (2002-09-26 22:51) [2]procedure TForm1.RegisterFileType(prefix:String; exepfad:String);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey("."+prefix,True);
reg.WriteString("",prefix+"file");
reg.CloseKey;
reg.CreateKey(prefix+"file"); //
reg.OpenKey(prefix+"file\DefaultIcon",True);
reg.WriteString("",exepfad+",0");
reg.CloseKey;
reg.OpenKey(prefix+"file\shell\open\command",True);
reg.WriteString("",exepfad+" "%1"");
reg.CloseKey;
reg.Free;
end;
Этот код регистрирует определенное расширение за вашей программой
Желаю успехов
← →
Kotka (2002-09-26 23:44) [3]> . (26.09.02 22:19)
хотеть много можно
это абсолютно естественное желание!!!
>AXe (26.09.02 20:03)
Есть одни грабли: если в пути к файлу есть пробелы, по параметров (paramstr) становится больше, чем одно
Например:
путь c:\мои документы\файл.exe
в paramstr будет выглядеть так:
paramstr(1)="c:\мои"
paramstr(2)="документы\файл.exe"
т.е. нужно учитывать paramcount!
← →
Rouse_ (2002-09-27 02:09) [4]Эти грабли обходятся именно в приведенном мной коде т.к.
в строке reg.WriteString("",exepfad+" "%1"");
параметр %1 - заключен в двойные кавычки - это значит что
"Мои документы" будут равняться именно Мои документы а не Мои
Желаю удачи
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c