+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف فتح موقع ويب (/showthread.php?tid=4965)
كيف فتح موقع ويب - أحمد سريع - 02-03-2013
السلام عليكم ..
لدي برنامج مكون من عدة أزرار لمواقعي المفضلة يعني بمجرد الضغط على الزر يفتح موقع ويب
ما اكتب بالزر ؟
كيف فتح موقع ويب - STRELiTZIA - 02-03-2013
السلام عليكم و رحمة الله
توجد عدة طرق... يمكنك البداية بدراسة هذا المثال على السريع...
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;
كيف فتح موقع ويب - أحمد سريع - 03-03-2013
يعطيك العافية أخي لو ممكن توضيح لاني وضعته في زر وعند الضغط علىالزر لايعمل
لو ممكن الطريقة الصحيحة لوضع الكود على زر
كيف فتح موقع ويب - STRELiTZIA - 03-03-2013
لا تقم بنسخ لصق للأوامر....
حاول فهما اولا...
كيف فتح موقع ويب - M_Mori2010 - 03-03-2013
اخي احمد اليك طريقة لفتح موقع ويب في صفحة مستقلة
PHP كود :
var
newURL: string;
begin
newURL:='www.google.com'; // هنا تضع الموقع الذي تريد فتحه
ShellExecute(Handle, 'open', PChar(newURL), nil, nil, SW_NORMAL); // هنا يقوم بفتح الصفحة الذي حددتها
بالتوفيق
كيف فتح موقع ويب - أحمد سريع - 11-03-2013
وضعتها في زر ولم يفتح معي
تحيااتي
كيف فتح موقع ويب - rabihpascal - 11-03-2013
وعليكم السلام
اخي الكريم
اولا تضع edit1ثم webbrowserمن صفحة internetوتكتب في الزر
كود :
((webbrowser1.navigate(widestring(edit1.textاي if then edit1.text:='www.google.com'
كما ان استعمال memo1بدل edit يعتبر افضل
والسلام.
كيف فتح موقع ويب - amer mohamed - 02-04-2013
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]كيف فتح موقع ويب - أحمد سريع - 20-04-2013
الردود مختلفة وكلها جربتها ولا نفع
ولكم مني جزيل الشكر ويجعلها في موازين حسناتكم