+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : DELPHI SHELLEecute URL (/showthread.php?tid=12203)
DELPHI SHELLEecute URL - Mohamed_sabri - 05-02-2023
اريد ان استخدم خاصية shellexecute لفتح رابط في explorer window و ليس في متصفح انترنت
ارجو المساعدة
RE: DELPHI SHELLEecute URL - dulmkh - 26-07-2023
uses vcl.buttons,winapi.shellapi;
procedure TForm5.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'www.delphi4arab.net', nil, nil, Sw_ShowNormal);
end;
RE: DELPHI SHELLEecute URL - wadoud - 26-07-2023
(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;