Автооткрытие

← →
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!

Эти грабли обходятся именно в приведенном мной коде т.к.
в строке reg.WriteString("",exepfad+" "%1"");
параметр %1 - заключен в двойные кавычки - это значит что
"Мои документы" будут равняться именно Мои документы а не Мои

Желаю удачи

Автооткрытие Найти похожие ветки