Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

Gönderen Konu: internet  (Okunma sayısı 3305 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı 0000sinan

  • Yeni Üye
  • *
  • İleti: 4
  • Rep: +0/-0
internet
« : 28 Haziran 2008 21:22:36 »
selam arkadaşlar benim sorum  bir tane label var ve ben ona tıklandııgında mesala www.google.com.tr acılsın istiyorum bunun için ne yapmalıyım ve unite eklenmesi gereken biirşey var mı şimdiden teşekkür ederim

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #1 : 28 Haziran 2008 21:30:43 »
Slm...Bir label'in OnClick Olayına;
Kod: Delphi
  1. //Uses=ShellApi;
  2. WinExec('c:\PROGRAM FILES\INTERNET EXPLORER\IEXPLORE.EXE www.delphidunyasi.net',
  3.               SW_MAXIMIZE);
.......Kolay gelsin.
« Son Düzenleme: 29 Haziran 2008 11:37:00 by Kocaturk »

Çevrimdışı 0000sinan

  • Yeni Üye
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: internet
« Yanıtla #2 : 28 Haziran 2008 21:32:26 »
saolasın arkadaşım

Çevrimdışı pppppppp27

  • Yeni Üye
  • *
  • İleti: 15
  • Rep: +0/-0
Ynt: internet
« Yanıtla #3 : 29 Haziran 2008 11:19:42 »
"Cturk" arkadaşım yazdığım kod bir işe yaramaz o sadece c:\PROGRAM FILES\INTERNET EXPLORER\IEXPLORE.EXE kurulu program ile çalıştırıyor mesela ben windows işletin sistemini d:\ sürücüsüne kursaydım label'i tıkladığımda web sitesini açmayacaktı. Umarım anlata bildim.

Aşağıdaki kodla label, buton vs istediğin yere link ekleye bilirsin.

uses kısmına Shellapi unitini ekleyin;

Button'un Onclick Yordamına Şu kodu yazın

Kod: Delphi
  1. ShellExecute(Handle,
  2.             'open',
  3.             'Buraya istedigin her hangi bir siteyi yazabilirsin',
  4.              nil,
  5.              nil,
  6.              sw_ShowMaximized);
« Son Düzenleme: 29 Haziran 2008 11:36:09 by Kocaturk »

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: internet
« Yanıtla #4 : 29 Haziran 2008 11:38:58 »
Arkadaşlar birbirimize hitap tarzımıza dikkat edelim, her iki kod da çalışır, gerekirse IExplorer ın yolu bir değişkene atanıp çalıştırılabilir.
Sadece bir de bu şekilde deneyin, yada bu daha kullanışlı olabilir demek daha etik olur.

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #5 : 29 Haziran 2008 11:49:53 »
Slm..Çok sağol "Kocatürk"...zaten mantıklı olanda budur...isteyen istediği şekilde kullanır...
"pppppppp27" kardeşim.."INTERNET EXPLORER"  En mantıklı,Program Files'in Windows'un kendi yapısında içinde çalışır Çünkü Windows Kütüphanesinde sayısız bir çok dosyayı kullanır...zaten Windows ilk kurulacağı zaman "INTERNET EXPLORER"hedefi otomatik Program Files'dir..Dikkat ederseniz Bir çok program direk olarak "Program Files" seçili olarak gelir ve bazı programlarda "buraya kurulması" gibi .... uyarılır,Eğerki hedef değiştirmeniz gerekecekse ozaman "Sistem" Bilginizin çok iyi olması gerekir...Kolay gelsin.
« Son Düzenleme: 29 Haziran 2008 11:53:58 by Cturk »

Çevrimdışı pppppppp27

  • Yeni Üye
  • *
  • İleti: 15
  • Rep: +0/-0
Ynt: internet
« Yanıtla #6 : 29 Haziran 2008 12:42:34 »
Ya siz beni anlamadınız evet bende biliyorum windows programlarını program files e kurar ama örneğin ben bir program yazdım linki aşağıdaki gibi kodladım ama benim yazmış olduğum programı başka bir bilgisayar kullanıcısı kendi bilgisayarında kullanmak istediğinde kendiside işletim sistemini c: sürücüsüne kurmak zarunda kalır çünki kod yolu c: sürücüsünü gösterdiği için ama eğer c: sürücüsüne değil d: veya başka isimli sürücüye kurarsa lebel'i tıkladığında web sayfası açılmazdı ama benim vermiş olduğum kotda
öyle değil windows hangi sürücüye kurulursa kurulsun lebel'i tıklayınca web sayfası açılır isterseniz linux'da bile benim dediğim kodu kullana bilirsiniz. Platform bağımsızdır.



   1.
      //Uses=ShellApi;
   2.
      WinExec('c:\PROGRAM FILES\INTERNET EXPLORER\IEXPLORE.EXE www.delphidunyasi.net',
   3.
                   SW_MAXIMIZE);
« Son Düzenleme: 29 Haziran 2008 12:45:18 by pppppppp27 »

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #7 : 29 Haziran 2008 13:57:49 »
Slm.Çünkü İnternet Explorer'in en uygun çalıştığı yer Program Files'dir!...Çalışır, çalışmaz diye bir şey yoktur!..diğer sürücülerde çalıştırdığınız zaman problem yaratabilir.Kullanıcı bazında Genel olarak düşünürsek,Başka sürücülerde çalıştırmayınız!!..Ama Diğer Sistemlerde,Linux veya Mac'lerde olay farklıdır...Çünkü işletim sistemi farkı vardır,Biz genel olarak Dünya genelinde en yaygını olan Windows'a göre kod'lar düzenliyoruz ... Mesela ben Programlarımı Setupla;programın sağlıgı,işlenebilirliği açısından hep "Program Files'e kurdururum....Diğer sürücülerde el altında olurlar pek güvenli değildirler her an başlarına her şey gelebilir..Windows kendi Unistall programıda bu programları bulamaz!.Programlar silindikleri zaman sürüsüyle atık dosyalar oluştur,sonrada kitlenmeler olur..yani tam bir curcuna!.ve Sistem çöker Kasayı koltuğunuza alır Bilgisayarcıya koşarsınız? Yani en güzeli daha derli toplu ,Windows veya özel Onarma programlarınında daha rahat çalışması için en uygun yer "Program Files" dir.Programlarınızı hangi işletim sistemi veya işletim sistemi için yazıyorsanız  ilerde Müşterilerinizle problem yaşamamak için o işletim sisteminin kurallarına uymak zorundasınız!...
« Son Düzenleme: 29 Haziran 2008 14:26:27 by Cturk »

Çevrimdışı Opt2000

  • Global Moderatör
  • *****
  • İleti: 263
  • Rep: +9/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #8 : 29 Haziran 2008 14:27:03 »
Selam,

pppppppp27 biraz kaba söylemiş, ama aslında haklı. Örneğin benim bilgisayarımda iki farklı işletim sistemi kurulu. C sürücüsünde Vista, D sürücüsünde ise XP var. XP sisteminde yukarıdaki kod çok ciddi sorun yaratacaktır. Zaten hard coded path yazmak doğru bir şey değil, çünkü daha önce C sürücüsü olmayan bir bilgisayar bile gördüm. Teknik olarak XP ya da Vista hangi sürücüye kurulduğu ile ilgilenmez, ama kötü yazılmış programlar sorun yaratır. Eğer hard coded path verecek olursanız siz de kötü bir program yazmış olursunuz.

İkincisi WinExec Microsoft'un uzun zaman önce terkettiği bir fonksiyon. Sadece uyumlu olsun diye destek vermeye devam ediyor ve bir gün bu desteği çekebilir. Çünkü yıllardır programcıları bu konuda uyarıyor. ShellExecute fonksiyonu daha güzel bir çözüm. Ama aslında o da riskli bir çözüm, çünkü ShellExecute, sistemde tanımlı olan shell'i kullanarak bu işi yaptırıyor. Bazı sistemlerde Shell olarak Explorer kullanılmaz. Ama bunu gözarda edebiliriz, çünkü çok özel durumlardan bahsediyoruz.

En doğru çözüm ise, Registry'den o dosya formatı ile ilişkilendirilmiş programı ve parametrelerini bulmak ve CreateProcess ile çağırmak. Ama bu çok zahmetli. Kişisel olarak ben ShellExecute'u kullanıyorum.

Kolay gelsin,
Bahadır Alkaç

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #9 : 29 Haziran 2008 14:46:39 »
O sözkonusu kod doğrudur!!...ona bir şey demiyoruz ama burada önemli olan "İnternet Explorer" ve çalışma alanıdır,tek kurulacağı en mantıklı yerde Program Files'dir. burada İşletim sistemlerinin kurulacağı sürücü önemli değildir,çünkü kuruldukları zaman Tüm kullanılan klasörler gerekli en uygun yerlere kurulur Örnek "program Files" gibi.....yani kod doğru ama açıklama yanlış....mesela ben o kod'u şu şekildede kullanıyorum;
Kod: Delphi
  1. var
  2.  strwww: String;
  3. begin
  4.  strwww :=Form1.DbEdit1.Text;//İnternet Adresi
  5.  ShellExecute(Handle, 'open', pChar (strwww),nil,nil,SW_SHOW);
  6.  
......Kolay gelsin..
« Son Düzenleme: 29 Haziran 2008 14:58:05 by Cturk »

Çevrimdışı pppppppp27

  • Yeni Üye
  • *
  • İleti: 15
  • Rep: +0/-0
Ynt: internet
« Yanıtla #10 : 01 Temmuz 2008 11:04:44 »
program files'e kurulur ama senin kodunda belirli bir yerdeki program files'i gösteriyor C: sürücüsündeki program files'i söylüyor ya ben 0000sinan arkadaşımızın yaptığı programı kullansaydım benimde program files'im D: sürücüsünde kurulu olsaydı o zaman program çalışmazdı.
Bu söylediğimi de anlamazsan ben artık bir şey demiyorum. Ama her kez kendi bildiğini yapmak da özgür sözlerimde kabalık, yanlışlık vs. varsa özür dilerim. HER KEZE İYİ GÜNLER DİLEĞİMLE

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: internet
« Yanıtla #11 : 01 Temmuz 2008 16:18:19 »
Ya @pppppppp27 arkadaşım neden ısrarla kod bir işe yaramaz deyip duruyorsun, sistem kaydından "Program Files" dizinin yolunu almak çok basit. Örneğin aşağıdaki gibi  String tipi bir değer döndüren bir function tanımlarsak rahatlıklabu işi kotarabiliriz.


Kod: Delphi
  1. function ProgramFilesPath: String;
  2. var
  3.   R: TRegistry;
  4.    begin
  5.      R := TRegistry.Create;
  6.       try
  7.         R.RootKey := HKEY_LOCAL_MACHINE;
  8.         R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
  9.         Result := R.ReadString('ProgramFilesDir');
  10.       finally
  11.      reg.Free;
  12.    end;
  13. end;

Diyelim ki sende diyorsun Internet Explorer bende varsayılan dizinde değil o zaman da aynı function ı şu şekilde tanımlar IExplorer.exe nin makinada hangi delikte saklı olduğunu bulabiliriz.

Kod: Delphi
  1. function IExplorerPath: String;
  2. var
  3.   R: TRegistry;
  4.    begin
  5.      R := TRegistry.Create;
  6.       try
  7.         R.RootKey := HKEY_LOCAL_MACHINE;
  8.         R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE', False);
  9.         Result := R.ReadString('Path');
  10.       finally
  11.      reg.Free;
  12.    end;
  13. end;

ve al sana internet explorer ın bulunduğu yer, IExplorer makinada yokdersin varsayılan tarayıcı bulunur yani inatlaşmalar ve çözümler uzar gider.
Size naçizane bir tavsiye programcılık konusunda birazcık mütevazi olmayı deneyin bir şey kaybetmezsiniz.

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #12 : 01 Temmuz 2008 20:38:38 »
Kardeşim Bu işi bayağı uzattın!!....1= program files' başka Windows başka sürücüde olmaz!.Program Files Windows ile aynı sürücüde olmak şartında.....olur ama düzgün çalışmaz!..Biz 1992 yılından bu yana Bilgisayar'ın içindeyiz ve İst/BakırKöy'de Bilgisayar teknik servis ve Sistem yazılımları çözümleri hizmeti veren Bilgisayar Firmamız var!,sistemleri çok iyi biliriz.....Windows Program Files'i kurduğu yerde bulmak zorunda!...Program files ayrı kurulmaz!..böyle bir mantık yok!..yani Windows'u ayrı bir sürücüye Program Files'i ayrı bir sürücüye kuramazsınız!..Zaten otomatik ikisi aynı yere kurulur.C: sücüsünü D: yapsanız aynı yerde olacak ve böylece İnternet Explorer 'de oraya kurulur ve uyumlu çalışmak için Program Files'e kurmak zorundasınız!..bu tereciye tere satmak olur!!..Yani kısaca;
2*2=4 nasıl yaparsa...
Windows=Program Files
İnternet explorer = Program Files olur.....olur da ne kelime olmak zorunda......Bilmem anlatabildimmi?
« Son Düzenleme: 01 Temmuz 2008 20:45:10 by Cturk »

Çevrimdışı 32844

  • Kıdemli Üye
  • *****
  • İleti: 288
  • Rep: +3/-0
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #13 : 01 Temmuz 2008 20:49:56 »
Ben de olaya kıyısından köşesinden gireyim. Bilgisayarda explorer var mı yok mu? C'ye mi D'ye mi kurmuş iplemem. Ben kodu yazarım. Makinesinde çalışmazsa adamın kendi sorunu der geçerim. Program vasat (orta) bir sistem için tasarlanır. Yok şöyle olsun, böyle olsun dersek, programa koyacağımız alternatif kodlar sonsuza gider.

Şahsa özel program tasarlanıyorsa o zaman ayrı. Nerede kurulu ise orayı çalıştırırsın.

Örneğin; Arabanın direksiyonu önde (bizde sağda) olur. Ben de direksiyon kılıfı satıyorum. Ana! O da ne direksiyon yok. Meğer adam direksiyonu bagaja koymuş. Daha benim yapacağım birşey yok derim. Aslında tam anlatamadım ama mantığı anlamışsınızdır.

Kolay gelsin.
Çang çing çong çung.
Çin Atasözü

Çevrimdışı Cturk

  • Kıdemli Üye
  • *****
  • İleti: 256
  • Rep: +5/-1
  • Cinsiyet: Bay
Ynt: internet
« Yanıtla #14 : 01 Temmuz 2008 21:13:39 »
işte Arkadaşım "32844 " olayı açıklamış; Yani Arabanın direksiyonu Bagaja atıp çalıştıramazsınız!.. Yani Program Files gibi!.....deneyin bakalım? Çok süper Bir Windows "Çökertmesi" izlemek istiyorsanız Program Files'i başka yere atın!?.
« Son Düzenleme: 01 Temmuz 2008 21:14:40 by Cturk »