//使用前先下載GDIPlus
//以下代碼GDIPlus + delphi7通過
//轉換後的圖片與原圖片在同壹目錄下
var
img1 :TGPImage;
ImgGUID :TGUID;
begin
opendialog1.Filter := '支持的所有圖片格式|*.png;*.jpg;*.gif;*.bmp;*.tif;*.emf;*.wmf;*.ico' +
'|*.png|*.png' +
'|*.jpg|*.jpg' +
'|*.gif|*.gif' +
'|*.bmp|*.bmp' +
'|*.tif|*.tif' +
'|*.emf|*.emf' +
'|*.wmf|*.wmf' +
'|*.ico|*.ico';
if opendialog1.Execute then
begin
img := TGPImage.Create(opendialog1.FileName);
GetEncoderClsid('image/tiff', ImgGUID);
img.Save(ChangeFileExt(opendialog1.FileName, '.tif'), ImgGUID);
img.Free;
end;
end;