windowsa dosya tanıtma

[tayc]

herkese iyi çalışmalar....
bir konuda yardımınıza ihtiyacı var arkadaşlar

windowsa kendi yaptğımız uzantıyı ve bu uzantıya ait iconu kayıt ettirmek, sonrada bu uzantının üzerine tıkladığımızda uzantıya bağladığımız *.exeyi açıp üzerindeki memonun içine yüklenmesini istiyorum.

bu konuda bana yardımcı olmanızı rica edecektim........

[SimaWB]

Aşağıdaki fonksiyon sayesinde istediğiniz bir uzantıyı, istediğin bir programla ilişkilendirebilirsiniz:

Kod: Tümünü seç

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

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

Hangi dosya seçilerek sizin programınız açılmış; bunu tespit etmek için ParamStr(1) değerini kontrol etmelisiniz.

[tayc]

Cevabın için teşekkür ederim arkadaşım,

İyi Çalışmalar.........

[sabanakman]

Bir zamanlar konu ile alakalı bir makale hazırlamıştım, işinize yarayabilir. -> viewtopic.php?f=19&t=24637

[tayc]

bu konuda çok faydalı oldu teşekkür ederim