Citat:
za BMP pise - Paint.Picture
za PNG pise - Photoshop.PNGFile.9
|
Hm, ali svuda piše drugačije, neko možda nema instaliran Photoshop. Nije valjda da moram prvo da čitam koja je definicija za svaku ekstenziju iz
HKCR\.ekstenzija pa da upisujem u
HKCR\definicija (edit: Dobro, nije to toliko teško koliko sam ovde napisao da jeste
)?
Što se mene tiče može i u Send to ako će mi biti lakše da realizujem to, ali to nikad nisam radio, a ovo sa ekstenzijama sam kao radio ranije (doduše samo na novim ekstenzijama, nisam menjao/dodavao ništa starim) :/
edit: Uspeo sam! Evo procedure koja završava posao (Delphi), možda treba malo da se doradi ali to je u principu to:
Kôd:
procedure TForm1.Integrate_In_Explorer(ekstenzija:string);
var
reg: TRegistry;
komanda,tekst,exec,definicija:string;
begin
komanda:='upload';
tekst:='Upload to ImageShack';
exec:='"'+extractshortpathname(paramstr(0))+'" "%1"';
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey(ekstenzija,true);
definicija:=reg.ReadString('');
reg.CloseKey;
reg.OpenKey(definicija+'\shell\'+komanda,true);
reg.WriteString('',tekst);
reg.CloseKey;
reg.OpenKey(definicija+'\shell\'+komanda+'\command', true);
reg.WriteString('',exec);
reg.CloseKey;
reg.Free;
end;