本文整理自网络，侵删。
function GetFileType(FileName: String): string; var MyImage:TMemoryStream; Buffer:Word; i:integer;begin Result := 'Err'; MyImage:=TMemoryStream.Create; try MyImage.LoadFromFile(FileName); MyImage.Position := 0; // 指针文件开头的位置 if MyImage.Size = 0 then Exit; // 文件大小等于0退出 MyImage.ReadBuffer(Buffer,2); // 读取文件的前２个字节[低位到高位]，放到Buffer里面 if Buffer=$4D42 then Result :='BMP'; if Buffer=$D8FF then Result :='JPEG'; if Buffer=$4947 then Result :='GIFP'; if Buffer=$050A then Result :='PCX'; if Buffer=$5089 then Result :='PNG'; if Buffer=$4238 then Result :='PSD'; if Buffer=$A659 then Result :='RAS'; if Buffer=$DA01 then Result :='SGI'; if Buffer=$4949 then Result :='TIFF'; finally MyImage.Free; // 释放内存流对象 end;end;
相关阅读 >>
Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的
Delphi idhashmessagedigest, idhash, idglobal md5
Delphi strtodatetime 这个函数在win7下出错
更多相关阅读请进入《Delphi》频道 >>
