كيف فتح موقع ويب

[أحمد سريع]

السلام عليكم ..
لدي برنامج مكون من عدة أزرار لمواقعي المفضلة يعني بمجرد الضغط على الزر يفتح موقع ويب
ما اكتب بالزر ؟

[STRELiTZIA]

السلام عليكم و رحمة الله

توجد عدة طرق... يمكنك البداية بدراسة هذا المثال على السريع...

PHP كود :

var
  links: string;
begin
  links :=
    'http://www.google.com http://www.at4re.com http://www.delphi4arab.net http://sluganalysislab.blogspot.com ';
  Windows.WinExec(PChar('c:\progra~1\mozill~1\firefox.exe ' + links), SW_MAXIMIZE);
end; 


[أحمد سريع]

يعطيك العافية أخي لو ممكن توضيح لاني وضعته في زر وعند الضغط علىالزر لايعمل
لو ممكن الطريقة الصحيحة لوضع الكود على زر

[STRELiTZIA]

لا تقم بنسخ لصق للأوامر....
حاول فهما اولا...

[M_Mori2010]

اخي احمد اليك طريقة لفتح موقع ويب في صفحة مستقلة

PHP كود :

var
  newURL: string;
begin
newURL:='www.google.com'; // هنا تضع الموقع الذي تريد فتحه
ShellExecute(Handle, 'open', PChar(newURL), nil, nil, SW_NORMAL); // هنا يقوم بفتح الصفحة الذي حددتها 


بالتوفيق

[أحمد سريع]

وضعتها في زر ولم يفتح معي
تحيااتي

[rabihpascal]

وعليكم السلام

اخي الكريم

اولا تضع edit1ثم webbrowserمن صفحة internetوتكتب في الزر

كود :

((webbrowser1.navigate(widestring(edit1.text

ثم تكتب اسم الموقع في edit1 ثم تستفيد من boolean
اي if then edit1.text:='www.google.com'
كما ان استعمال memo1بدل edit يعتبر افضل
والسلام.

[amer mohamed]

1.اولا عليك بوضع ShellAPI في التعريف

2.وضع الموقع المراد فتحه
newURL:='www.google.com'
3.ثم استعمال ShellExecute لفتح الموقع

كود :

[align=left]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, Grids, StdCtrls, [color=Red]ShellAPI[/color]; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var newURL: string; begin [color=red]newURL:='www.google.com';[/color][COLOR="red"] ShellExecute[/COLOR](Handle, 'open', PChar(newURL), nil, nil, SW_NORMAL); end; end.[/align]

[أحمد سريع]

الردود مختلفة وكلها جربتها ولا نفع
ولكم مني جزيل الشكر ويجعلها في موازين حسناتكم