إضافة رابط موقع

[محمد2016]

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

إخواني الكرام في منتدى دلفي العرب
أولا : مبتدئ في الدلفي وضيف جديد عليكم
بعد عدة محاولات فاشلة وبحوث ، لم أستطع إضافة رابط يحولك إلى موقع في فورم دلفي
لا أدري ما هو المشكل بالظبط
علما أنني أستخدم دلفي 10.

قمت سابقا بالإطلاع على هذا الموضوع لكن لم أجد اللغز
هل يمكن الشرح على زر فقط يقوم بتحويلك للموقع المقصود.
شكرا وبارك الله فيكم مسبقا

[محمد عبد العزيز]

وعليكم السلام ورحمة الله وبركاته
ما المشكل ؟ رسالة الخطأ ؟ ما حدث/ لم يحدث ؟

[محمد2016]

وعليكم السلام ورحمة الله وبركاته
ما المشكل ؟ رسالة الخطأ ؟ ما حدث/ لم يحدث ؟

رسالة الخطأ : erreur 6

[محمد عبد العزيز]

ما اصدار النظام ؟ 10 ؟

[محمد2016]

ما اصدار النظام ؟ 10 ؟


ويندوز 10

البرنامج : الإصدار الأخير (Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753)

[محمد عبد العزيز]

ما الامر الذي استخدمته (الكود الذي كتبته في دلفي)

[محمد2016]

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}
Uses
ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.google.com/',nil,nil, SW_SHOWNORMAL) ;
end;

end.

[محمد عبد العزيز]

تستخدم Firemonkey !
الا تعرف ShellExecute هي API خاصة بWindows فقط !

[محمد2016]

هل أقوم باستيرادها من المكونات (components)
أو هي موجودة سابقا في دلفي 10
إذا كان يجب استيرادها أو موجودة أظن ليس مهما ، المهم هو أين أجدها في أي فئة؟

[محمد عبد العزيز]

أولا يجب ان تفهم اين تضع قدمك
ShellExecute هي دالة من دوال Windows اي انها معرفة/تعمل يه فقط

عندما تختار مشروع بFiremonkey فيمكنك انتاج تطبيق يعمل على انطمة مجتلفة غير windows وبها ShellExecute لا تعني شيئ! ومنه خطأ