02-03-2013, 02:02 AM
02-03-2013, 03:28 PM
السلام عليكم و رحمة الله
توجد عدة طرق... يمكنك البداية بدراسة هذا المثال على السريع...
توجد عدة طرق... يمكنك البداية بدراسة هذا المثال على السريع...
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, 06:14 AM
يعطيك العافية أخي لو ممكن توضيح لاني وضعته في زر وعند الضغط علىالزر لايعمل
لو ممكن الطريقة الصحيحة لوضع الكود على زر
لو ممكن الطريقة الصحيحة لوضع الكود على زر
03-03-2013, 09:50 AM
لا تقم بنسخ لصق للأوامر....
حاول فهما اولا...
حاول فهما اولا...
03-03-2013, 02:30 PM
اخي احمد اليك طريقة لفتح موقع ويب في صفحة مستقلة
بالتوفيق
PHP كود :
var
newURL: string;
begin
newURL:='www.google.com'; // هنا تضع الموقع الذي تريد فتحه
ShellExecute(Handle, 'open', PChar(newURL), nil, nil, SW_NORMAL); // هنا يقوم بفتح الصفحة الذي حددتها
بالتوفيق
11-03-2013, 10:27 AM
وضعتها في زر ولم يفتح معي
تحيااتي
تحيااتي
11-03-2013, 12:23 PM
وعليكم السلام
اخي الكريم
اولا تضع edit1ثم webbrowserمن صفحة internetوتكتب في الزر
ثم تكتب اسم الموقع في edit1 ثم تستفيد من boolean
اي if then edit1.text:='www.google.com'
كما ان استعمال memo1بدل edit يعتبر افضل
والسلام.
اخي الكريم
اولا تضع edit1ثم webbrowserمن صفحة internetوتكتب في الزر
كود :
((webbrowser1.navigate(widestring(edit1.textاي if then edit1.text:='www.google.com'
كما ان استعمال memo1بدل edit يعتبر افضل
والسلام.
02-04-2013, 10:45 AM
1.اولا عليك بوضع ShellAPI في التعريف
2.وضع الموقع المراد فتحه
newURL:='www.google.com'
3.ثم استعمال ShellExecute لفتح الموقع
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, 09:09 AM
الردود مختلفة وكلها جربتها ولا نفع
ولكم مني جزيل الشكر ويجعلها في موازين حسناتكم
ولكم مني جزيل الشكر ويجعلها في موازين حسناتكم