☆TShellResourcesって?

TShellResourcesって、何に使うのだろうという疑問から少し調べてみました。
ヘルプによるとVistaのシェルアニメーションは、システムの外部からアクセスできなくなっているらしく、TShellResourcesはこのアニメーションリソースを提供するようです。まあ、ソースを見てもリソースのためだけに用意されていることが明らかですけどね。ということで、このリソース(CopyFiles)を表示させてみました。
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAnimations, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Animate1: TAnimate;
    Animate2: TAnimate;
    ShellResources1: TShellResources;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // XP
  Animate1.CommonAVI := aviCopyFiles;
  Animate1.Active := True;

  // Vista(TShellResourcesより)
  // リソースエディターでIDを調べました。
  Animate2.ResID := 160; // CopyFiles.res
  Animate2.ResHandle := hInstance;
  Animate2.Active := True;
end;

end.


実行させるとこんな感じ・・・。

Shellresource


ご覧のように少しイメージが異なります。 ヘルプには「TShellResources は、Vista で実行され、共有ライブラリからアニメーションを使用するプログラムにのみ使用してください。それ以外の場合は、必要のないオーバーヘッドを増やすだけです。 」とありますが、この微妙な差が気に入った方は使ってみてはいかが(笑)

|

その他のカテゴリー

ADO | ADT | API | ArrayList | ASP.NET | BDE | BDP.NET | BdpConnection | Borland Developer Studio 2006 | CAPICOM | class | ClipBoard | CodeEditor | Convert.ToString | Custom component | DBExpress | Delphi 2005 | Delphi 2006 | Delphi 2007 | Delphi XE2 | Delphi7 | Delphi8 | Device Driver | Dialog | Docking | DocuWorks | Docuworks SDK | Drag&Drop | Evernote | EXCEL | Firebird | FireMonkey | Game | General | Generics | Google Earth COM API | Google Maps | Google SketchUp | Graphic | IDE | Imm | Indy | InstallAware Express6 | InterBase Admin | JWW | Microsoft SQL Server | MyBase | OnMouseDown | Oracle XE | Paradox | PreviewHandler | PrintDialog | PrintPreviewDialog | PropertyGrid | PSDファイル | Ribbon Controls | RichTextBox | Servers | SubClass | TAction | TActionList | TAnimate | TButton | TCategoryButtons | TClientDataSet | TComboBox | TComboBoxEx | TCustomEdit | TDBGrid | TDockTabSet | TDrawGrid | TEdit | TExcelApplication | TFont | TForm | third party | TImage | TLabel | TList | TListBox | TListView | TMemo | TOpenDialog | TOutlookApplication | TPageControl | TPanel | TRichEdit | TShellResources | TStringGrid | TTabControl | TToolBar | TToolButton | TTreeView | TWebBrowser | Update | VCL Styles | WinInet | XE2 | XPman | オープン配列パラメータ | グループ化 | トランスレーションマネージャー | ファイル処理 | ファイル名処理 | 動的配列 | 投票 | 文字列処理 | 日本語入力 | 暗号 | | 音声合成利用