Ассоциация файлов.

[Rockot]

Здравствуйте, помогите пожалуйста не могу сделать что бы jpg bmp и прочие граф. форматы открывались моей программой сделал следующее:

 
private
       ext:string;    des:string;    exe:string;
    { Private declarations }
  public
    published
     property ExeName : String read exe  write exe;
      property Description : String read des  write des;
       property Extension : String read ext write ext;
    { Public declarations }
  end;

  const HKEY_CURRENT_USER = longWord($80000001);
  const CLASSES_PATH = 'Software\Classes\';

procedure TForm1.Label1Click(Sender: TObject);
var reg:TRegistry;
begin
exe:=application.ExeName;
des:='.jpg';
ext:='.jpg';
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey(CLASSES_PATH + ext,true);
reg.WriteString('', des);  reg.CloseKey;
reg.OpenKey(CLASSES_PATH + des,true);
reg.WriteString('',des);
reg.Openkey('DefaultIcon',true);
reg.WriteString('', exe + ', 1');
reg.CloseKey;
reg.OpenKey(CLASSES_PATH + des+'\Shell\Open',true);
reg.WriteString('','&Open');
reg.OpenKey('Command', true);
reg.WriteString('', '"'+ exe+'"' + ' "%1"');
reg.CloseKey;
reg.Free;
end;

Так вот запись в реестр действительно произвелась, но ... формат jpg так и не открылся, сделал такую же запись с несуществующим форматом - " JMG " и создал такой формат вручную ( текстовый файл с изменённым расщирением ) у него появилась та самая иконка моей программы и по запуску этого файла открывается моя программа, но почему JPG не хочет?
И ещё, буду жудко признателен если подскажите как мне произвести чтение этого файла.

[Кольша]

возможно стоит попробовать сменить RootKey на другой..

[Rockot]

Поменял на HKEY_LOCAL_MACHINE там есть уже JPG ну чтож пишу туда же, всё равно не хочет...
Люди прошу помогите, а то это ужас какой-то.

[Кольша]

Операционная система?если 7'как попробуй от админа запустить..

[Rockot]

Я попробовал другой вариант кода, он работает с запуском администратора, в реестре все записи есть и вроде правильные путь к приложению и т.п. Но всё равно не хочет работать вот код который я пишу:

 procedure RegisterFileType(ExtName:String; AppName:String) ;
 var
    reg:TRegistry;
 begin
   reg := TRegistry.Create;
   try
    reg.RootKey:=HKEY_CLASSES_ROOT;
    reg.OpenKey('.jpg' + ExtName, True) ;
    reg.WriteString('.jpg', ExtName + 'file') ;
    reg.CloseKey;
    reg.CreateKey(ExtName + 'file') ;
    reg.OpenKey(ExtName + 'file\DefaultIcon', True) ;
    reg.WriteString('jpg', AppName + ',0') ;
    reg.CloseKey;
    reg.OpenKey(ExtName + 'file\shell\open\command', True) ;
    reg.WriteString('jpg',AppName+' "%1"') ;
    reg.CloseKey;
   finally
    reg.Free;
   end;

   SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
 end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RegisterFileType('jpg','D:\Delphi (написанные)\В разработке\Просмотр изображений - копия\Project1.exe') ;
end;

И всё равно не хочет работать я уже и не знаю как это люди делают.... Данную статью просматривают 130 человек и никто ответить не может...

[Кольша]

unit Komp;
{Avtor Nikolai Ovchnnikov aka kol'sha 
mail:ovchinnikovnikola@mail.ru
vk:http://vk.com/dj_kl
Если кто - то модифицирует , улутшит 
компонент пожалуйста сообщите мне}
interface

uses
 Windows, Registry,ShlObj;

type
  TKomp = class
  private
  protected
  public
procedure Komp_Register(ext, app, icon,iconp: string);
procedure Komp_unRegister(ext, app: string);
  published
  end;
implementation

procedure TKomp.Komp_Register(ext, app, icon,iconp: string);
{ext:=расширение файла(безточки);
app:=приложение которое будет открывать;
icon:=иконка файла(по счету в dll или exe);
iconp:=путь к exe или dll  с иконкой;}
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('',iconp+','+icon);
    CloseKey;
    OpenKey(ext+'file\shell\open\command',True);
    WriteString('',app+' "%1"');
    CloseKey;
    Free;
  end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);  
end;

procedure TKomp.Komp_unRegister(ext, app: string);
{ext:=расширение файла(безточки);
app:=приложение которое будет открывать;}
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');
    DeleteKey(ext+'file\DefaultIcon');
    CloseKey;
    DeleteKey(ext+'file\shell\open');
    DeleteValue(App+' "%1"');
    CloseKey;
    Free;
   
  end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

end.

Не судите строго..это было год назад...я был такой дибил(^_^)..p.s. по крайней мере с mp3 работало на ура))

[3D Hunter]

не открывается файл в вашей программе потому,что этот код только регистрирует ассоциацию формата файла с вашей программой.а кто будет обрабатывать параметры запуска?в первом параметре и передается путь к открываемому файлу.по этому пути и следует открывать файл.нулевой параметр-полный путь к исполняемому файлу приложения.

[саша40]

У меня была таже проблема. Решение такое:
Вы зарегистрируйте программу в ключе jpg и bmp(.jpg, .bmp).
Потом добавте такой код в FormCreate:

if ParamCount>0 then //если запущен ваш jpg или bmp 
begin //то...
FileName:=ParamStr(1); //то заносим в переменую полный путь к нашему файлу. Можете сделать другое. 
end;

В конце остается только поменять в свойствах еxe приложение на своё.
Вот и всё!

[Rockot]

В том то и дело, что приложение не регистрируется с форматом... При запуске JPG запускается не моё приложение.