Как сделать, чтобы прои нажатии на файл с нужным расширением

← →
maxXP (2003-12-19 18:21) [0]

Мне нужно было зарегестрировать расширение на мою программу.
Т.к. в незнаю как реальзовать в делфи использовал *.vbs
set fso=createobject("scripting.filesystemobject") set dir=fso.getfile(wscript.scriptfullname) set shell=wscript.createobject("wscript.shell") dir=left(dir,len(dir)-11) shell.regwrite "HKCR\.mmf\shell\open\command\", dir+"Traymon32 %1" shell.regwrite "HKCR\.mmf\DefaultIcon\", dir+"Traymon32.exe,0" wscript.echo " Расширение .mmf было зарегистрировано для программы Traymon32"

И теперь стоит только 1 вопрос, как сделать, чтобы при нажатии на файл с нужным расширением программа не только открывалась, но и загружала в себя этот файл.
Файл текстовый и загружается в Memo.

← →
Сергей Резников (2003-12-19 18:31) [1]

Обрабатывай параметры ком. строки в проге.

← →
Dred2k (2003-12-19 20:39) [2]

Ниже код на дельфи. AppOpenParams - строка параметров, которая будет передана в приложение при запуске. В ней на месте %1 будет подставлено имя твоего файлика при запуске ;)

== cut ==
function AppRegisterFileType(Ext : String; AppName : String; AppDesc : String; AppEXE : String; AppOpenParams : String; IconID : Integer) : Boolean;
var tmpReg : TRegistry;
begin
tmpReg := TRegistry.Create;
try
try
with tmpReg do begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey(Ext, True);
WriteString("", AppName);
CloseKey;
OpenKey(AppName, True);
WriteString("", AppDesc);
CloseKey;
OpenKey(AppName + "\Shell\Open\Command", True);
WriteString("", AppEXE + " " + AppOpenParams);
CloseKey;
OpenKey(AppName + "\DefaultIcon", True);
WriteString("", AppEXE + "," + IntToStr(IconID));
CloseKey;
end;
Result := True;
except
Result := False;
end;
finally
tmpReg.Free;
end;
end;
== cut ==

← →
Эли (2003-12-19 22:28) [3]

Удалено модератором
Примечание: Вопросы в своей ветке.

← →
Эли (2003-12-20 11:02) [4]

Удалено модератором
Примечание: Вопросы в своей ветке.

Как сделать, чтобы прои нажатии на файл с нужным расширением Найти похожие ветки