05-02-2023, 07:40 PM
26-07-2023, 07:27 AM
uses vcl.buttons,winapi.shellapi;
procedure TForm5.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'www.delphi4arab.net', nil, nil, Sw_ShowNormal);
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'www.delphi4arab.net', nil, nil, Sw_ShowNormal);
end;
26-07-2023, 11:12 PM
(05-02-2023, 07:40 PM)Mohamed_sabri كتب : [ -> ]اريد ان استخدم خاصية shellexecute لفتح رابط في explorer window و ليس في متصفح انترنت
ارجو المساعدة
كود :
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
URL: string;
begin
URL := 'https://www.example.com';
ShellExecute(Handle, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL);
end;