我的一个程式用TOLEGraphic来读取gif、jpg文件，不知为何他的尺寸与windows资源管理器读出的尺寸不同。 程式码如下： var ole1: TOleGraphic; fs: TFileStream; begin if not FileExists(afile) then Exit; PreviewImage.Visible := false; try ole1 := TOleGraphic.Create; fs := TFileStream.Create(afile, fmOpenReadWrite); try ole1.LoadFromStream(fs); PreviewImage .Picture .Assign (ole1) except end; finally ole1.Free; fs.Free; end; PreviewImage.Visible := True; end; 显示出来比windows显示要小一些，不知何故？

原因不求甚解？我懶..... 主要是轉換單位誤差所產生的問題。 大概跟SetWindowExtEx、SetViewPortExtEx....有點相關吧！    OK. 快睡著了！..... 有一個簡單的作法：

Type
  TMyOleGraphic = Class(TOleGraphic)
  protected
    function GetHeight: Integer; override;
    function GetWidth: Integer; override;
  end;    function TMyOleGraphic.GetHeight: Integer;
begin
  Result := Round(((MMHeight * 0.001)/2.54)* 96);
end;    function TMyOleGraphic.GetWidth: Integer;
begin
  Result := Round(((MMWidth * 0.001)/2.54)* 96);
end;

用 TMyOleGraphic取代 TOleGraphic 就這樣吧！大概跟DC 解析等等相關吧。...

十分感谢wameng大哥。 我的电脑是120 DPI,把96改成120，就跟windows显示的一样了。 不过另外有个问题。 我如何知道用户设置的是120DPI还是96DPI啊？

找到api了 function TMyOleGraphic.GetHeight: Integer; begin Result := Round(((MMHeight * 0.001)/2.54)* GetDeviceCaps(getdc(GetDesktopWindow ),LOGPIXELSX))); end; function TMyOleGraphic.GetWidth: Integer; begin Result := Round(((MMWidth * 0.001)/2.54)* GetDeviceCaps(getdc(GetDesktopWindow ),LOGPIXELSY))); end; 不过TOLEGraphic似乎不支持gif动画

procedure TForm1.Button2Click(Sender: TObject);
var
  DC :HDC;
begin
  DC := GetDC(0);
  Showmessage(inttostr(GetDeviceCaps(DC, LOGPIXELSX)));
  ReleaseDC(0,DC);
end;

可以這樣取得。

想當然爾。.... AniGif 可用TGifImage 到處都有得下。

TGifImage的示例程式bug多多，不太敢用