Pogledajte određenu poruku
Staro 16. 05. 2007.   #4
Nemanja Avramović
emperor Selassie
Grand Master
 
Avatar Nemanja Avramović
 
Datum učlanjenja: 20.10.2006
Lokacija: Mladenovac
Poruke: 754
Hvala: 361
576 "Hvala" u 88 poruka
Nemanja Avramović će postati "faca" uskoroNemanja Avramović će postati "faca" uskoroNemanja Avramović će postati "faca" uskoroNemanja Avramović će postati "faca" uskoroNemanja Avramović će postati "faca" uskoroNemanja Avramović će postati "faca" uskoro
Pošaljite ICQ poruku za Nemanja Avramović Pošaljite poruku preko MSN za Nemanja Avramović Pošaljite poruku preko Yahoo za Nemanja Avramović
Default

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;
__________________
Moj portfolio sajtić | wat?

Poslednja izmena od Nemanja Avramović : 16. 05. 2007. u 14:33.
Nemanja Avramović je offline   Odgovorite uz citat