İşletim Sistemine Tanıtma Sorunu Yardım Lütfen !!!!

[alyamus]

Sayın hocalarım ve arkadaşlarım delphide kod yazmada sıkıntım yok ama bu programları işletim sistemine tanıtmada çok büyük zorlanma yaşıyorum çok basit 2 örnekle açıklayım örneğin bir resim görüntüleyici program yazdım işletim sistemindeki windows fax goruntuleyıcısı gıbı resım xp de ve ya win7 de degılde benım programımda acılsın istiyorum tıklandıgında benım program acsın. 2 .ci bir örnek mediaplayer hasırladım tum kodlaıryla tıklandıgında benım mediaplayerım calsın winamp gibi mesela ama bunları tanıtmak lazım işletim sistemine iş HKEY_CLASSES_ROOT burda bıtıyor ama kodu ıcıne eklıyorum bırlıkte acta gosukuyor tamam ama gene mp3 ü görmüyor mesela benım ne yapmam lazım cok arastırdım işin içinden cıkamadım =( yardımınızı esirgemeyin arkadaşlar .....

[unicorn64]

Kod: Tümünü seç

procedure RegisterExtension(const sExt, sDesc, AppPath: string);
  begin
    with TRegistry.Create do
      try
        RootKey := HKEY_CLASSES_ROOT;
        if OpenKey(sExt, True) then begin
          WriteString('', sDesc);
          CloseKey;
        end;
        if OpenKey('\' + sDesc, True) then begin
          WriteString('', sDesc);
          CloseKey;
        end;
        if OpenKey('DefaultIcon', True) then begin
          WriteString('', AppPath + ',' + IntToStr(0));
          CloseKey;
        end;
        if OpenKey('\' + sDesc + '\Shell\Open\Command', True) then begin
          WriteString('', '"' + AppPath + '" "%1"');
          CloseKey;
        end;
      finally
        Free;
      end;
  end; 

bunu bir dene istersen...

[sabanakman]

İncelemenizde fayda var. viewtopic.php?f=19&t=24637

[alyamus]

Kod: Tümünü seç

procedure RegisterExtension(const sExt, sDesc, AppPath: string);
  begin
    with TRegistry.Create do
      try
        RootKey := HKEY_CLASSES_ROOT;
        if OpenKey(sExt, True) then begin
          WriteString('', sDesc);
          CloseKey;
        end;
        if OpenKey('\' + sDesc, True) then begin
          WriteString('', sDesc);
          CloseKey;
        end;
        if OpenKey('DefaultIcon', True) then begin
          WriteString('', AppPath + ',' + IntToStr(0));
          CloseKey;
        end;
        if OpenKey('\' + sDesc + '\Shell\Open\Command', True) then begin
          WriteString('', '"' + AppPath + '" "%1"');
          CloseKey;
        end;
      finally
        Free;
      end;
  end; 

bunu bir dene istersen...

denedım olmadı hocam bısıler eksık ....

İncelemenizde fayda var. viewtopic.php?f=19&t=24637

buna daha once bakmıstım ısın ıcınden cıkamamıstım yalnıs burda bır kod dıkkatımı cektı hocam


procedure TFormAna.FormCreate(Sender: TObject);
var DosyaAdi:String;
begin
if (ParamCount>0) then begin
DosyaAdi:=ParamStr(1);
if FileExists(DosyaAdi) then Memo.Lines.LoadFromFile(DosyaAdi);
if (ParamCount>1) and SameText(ParamStr(2),'/msg') then ShowMessage('Menüden açılıyorum');
end;
end;

bunu mediaplayer'e gore nasıl dusenlerıs memo yerıne medıaplayer yazacam ama noktadan sonrası ne cıkamadım ısın ıcınden

[alyamus]

Hocalarım arkadaslarım sorunun buyuk bır kısmını çözmus bulunmaktayım sorun surada

Şimdi resim görüntüleme programı demıstık onu halletım işletimsistemine tanıta bılıyorum örnegın su kod ile

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin

If ParamStr(1) <> '' then
   Images1.picture.LoadFromFile(ParamStr(1));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterMyFileExt('.jpg', 'Resmi Görüntüle');
end;

sayın arkadaslar yalnız media player ıcın yapamadım ne denedıysem kafı olmadı ben surda medıyaplayerın sonuna ne koymalıyım

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin

If ParamStr(1) <> '' then
   mediaplayer1.(buraya ne gelecek  :(  ).LoadFromFile(ParamStr(1));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterMyFileExt('.mp3', 'mp3 çal');
end;

yardımlarınızı beklıyorum ....

[sabanakman]

MediaPlayer kullanımı çok basittir, çok küçük bir araştırma veya inceleme ile kısa sürede sonuç alabilirsiniz.

Kod: Tümünü seç

MediaPlayer1.FileName:='c:\dosya.avi'; //ParamStr(1)
MediaPlayer1.Open;