TAction // TEditCut、TEditCopy、TEditPaste、TEditSelectAll、TEditUndo、TEditDelete、TEditSelectAll、TEditSelectAllTWindowAction // TWindowClose、TWindowCascade、TWindowTileHorizontal、TWindowTileVertical、TWindowMinimizeAll、TWindowArrangeTHelpAction   // THelpContents、THelpTopicSearch、THelpOnHelp、THelpContextActionTFileAction   // TFileOpenWith、TFileSaveAs、TFilePrintSetup、TFilePageSetup、TFileExitTSearchFind      //使用 TBrowseURL 打开网页:

uses ExtActns;procedure TForm1.Button1Click(Sender: TObject);
beginwith TBrowseURL.Create(nil) dobeginURL := 'http://del.cnblogs.com';Execute;Free;end;
end;

uses ExtActns, Buttons;varbUrl: TBrowseURL;sBtn: TSpeedButton;procedure TForm1.FormCreate(Sender: TObject);
beginbUrl := TBrowseURL.Create(Self);bUrl.URL := 'http://del.cnblogs.com';bUrl.Caption := 'Open URL';sBtn := TSpeedButton.Create(Self);sBtn.Parent := Self;sBtn.Width := 100;sBtn.Action := bUrl;
end;

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtActns, ComCtrls;typeTForm1 = class(TForm)Button1: TButton;ProgressBar1: TProgressBar;procedure Button1Click(Sender: TObject);privateprocedure DownProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal;StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean);publicend;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
beginButton1.Enabled := False;with TDownLoadURL.Create(nil) dobeginURL := 'http://files.cnblogs.com/del/PMark_1.rar';Filename := 'c:\temp\PMark_1.rar';OnDownloadProgress := DownProgress; //下载进度ExecuteTarget(nil);Free;end;Button1.Enabled := True;
end;procedure TForm1.DownProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal;StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean);
beginProgressBar1.Max := ProgressMax;ProgressBar1.Position := Progress;Application.ProcessMessages;
end;end.