打开网页

use
ShellAPI

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ShellExecute(Handle, 'Open', 'IEXPLORE.EXE', ' Http://www.baidu.com', '', SW_SHOWNORMAL);
end;

你可能感兴趣的:(职场,Delphi,休闲)