如果通过文件后缀名得到文件类型?(50分)

lzf1010 · 2006-04-09

如题

JonnyZheng · 2006-04-09

说的不太清楚,但文件后缀名不能真正反应出文件类型....

lzf1010 · 2006-04-09

应该可以获取系统注册的类型信息的,打开windows文件夹不是可以显示出文件类型出来吗?

liyinwei · 2006-04-10

直接从注册表里面读取指定扩展名的信息。

lixin38 · 2006-04-10

讀寫注冊表..

jfyes · 2006-04-10

uses  Sysutils,  Graphics, ShellApi ; Const  PathSeparator    = '/'; //从注册表中读取文件类型 function GetFileType(const ExtName: string): string; begin  Result := UpperCase( ExtName );  if Result <> '' then    Result := Copy( Result , 2 , Length(Result) - 1);  Exit;  if ExtName = '' then    Result := ''  else  begin    Result := RegReadStringDef(HKEY_Classes_Root, ExtName, 'Content Type', '');    if Result = '' then    begin      if ExtName[1] = '.' then        Result := Copy(ExtName, 2, Length(ExtName))      else        Result := ExtName;      Result := Result + ' 文件';    end;    Result := UpperCase(Result);  end; end; //------------------------------------------------------------------------------ //把FileList中文件的图标加到ImageList中去 function GetFilesImageToList(ImageList: TImageList; FileName: string;  IsSmallIcon: Boolean): Boolean; var  F_icon: TIcon;  shinfo: TSHFILEINFO;  isCreateFile: Boolean;  Flag: Integer; begin  F_icon := TIcon.Create;    try    if FileName <> '' then      if fileName[1] = '"' then        Delete(FileName, 1, 1);    if FileName <> '' then      if fileName[Length(fileName)] = '"' then        FileName := Copy(FileName, 1, Length(fileName) - 1);    isCreateFile := false;    if not FileExists(fileName) then    begin      fileName := GetWindowsTempFolder + '/' + ExtractFileName(fileName);      if not FileExists(fileName) then        isCreateFile := ZsFileCreate(fileName);    end;    if isSmallIcon then      Flag := (SHGFI_SMALLICON or SHGFI_ICON)    else      Flag := (SHGFI_LARGEICON or SHGFI_ICON);    SHGetFileInfo(Pchar(fileName), 0, shinfo, Sizeof(shinfo), Flag);    F_icon.Handle := shinfo.hIcon;    ImageList.AddIcon(F_icon); //把ICO装入ImageList中    if isCreateFile then      DeleteFile(pchar(fileName));  finally    F_Icon.Free;  end;  Result := True; end; function GetFilesImageToList(ImageList: TImageList; FileList: TStringList;  IsSmallIcon: Boolean): Boolean; var i: integer; begin  ImageList.Clear;  if IsSmallIcon then    ImageList.Height := 16  else    ImageList.Height := 32;  ImageList.Width := ImageList.Height;  for i := 0 to FileList.Count - 1 do    GetFilesImageToList(ImageList, FileList, IsSmallIcon);  result := True; end;

jfyes · 2006-04-10

function PathRemoveSeparator(const Path: string): string; var  L: Integer; begin  L := Length(Path);  if (L <> 0) and (AnsiLastChar(Path) = PathSeparator) then    Result := Copy(Path, 1, L - 1)  else    Result := Path; end; procedure StrResetLength(var S: AnsiString); begin  SetLength(S, StrLen(PChar(S))); end; function GetWindowsTempFolder: string; var  Required: Cardinal; begin  Result := '';  Required := GetTempPath(0, nil);  if Required <> 0 then  begin    SetLength(Result, Required);    GetTempPath(Required, PChar(Result));    StrResetLength(Result);    Result := PathRemoveSeparator(Result);  end; end; function RelativeKey(const Key: string): PChar; begin  Result := PChar(Key);  if (Key <> '') and (Key[1] = '/') then    Inc(Result); end;   function RegReadStringDef(const RootKey: HKEY; const Key, Name, Def: string): string; var  RegKey: HKEY;  Size: DWORD;  StrVal: string;  RegKind: DWORD; begin  Result := Def;  if RegOpenKeyEx(RootKey, RelativeKey(Key), 0, KEY_READ, RegKey) = ERROR_SUCCESS then  begin    RegKind := 0;    Size := 0;    if RegQueryValueEx(RegKey, PChar(Name), nil, @RegKind, nil, @Size) = ERROR_SUCCESS then      if RegKind in [REG_SZ, REG_EXPAND_SZ] then      begin        SetLength(StrVal, Size);        if RegQueryValueEx(RegKey, PChar(Name), nil, @RegKind, PByte(StrVal), @Size) = ERROR_SUCCESS then        begin          SetLength(StrVal, StrLen(PChar(StrVal)));          Result := StrVal;        end;      end;    RegCloseKey(RegKey);  end; end;

lzf1010 · 2006-04-10

to jfyes: 你那个GetFileType函数有问题吧，是直接取后缀名而已

落地无声 · 2006-04-10

应该看文件头的前三个字节,用二进制文件编辑器查看。

阿九 · 2006-04-10

读注册表

lzf1010 · 2006-04-10

to 阿九: 这些信息保存在注册表的什么地方呢？

liyinwei · 2006-04-10

我个代码楼主吧 uses Registry function TForm2.RegReadItem(ARoot: HKEY; APath, AKey: String): String; var  sRegistry: TRegistry; begin  Result := '';  sRegistry := TRegistry.Create;  try    with sRegistry do begin      RootKey := ARoot;      if OpenKey(APath,True) then begin        if ValueExists(AKey) then Result := sRegistry.ReadString(AKey);      end;    end;  finally    sRegistry.CloseKey;    sRegistry.Free;  end; end; procedure TForm2.Button1Click(Sender: TObject); var  sExt,sTemp: String; begin  if not OpenDialog1.Execute then Exit;  sExt := ExtractFileExt(OpenDialog1.FileName);  if sExt = '' then Exit;  sTemp := RegReadItem(HKEY_CLASSES_ROOT,sExt,'');  sTemp := RegReadItem(HKEY_CLASSES_ROOT,sTemp,'');  ShowMessage(sTemp); end;

lzf1010 · 2006-04-10

多人接受答案了。

如果通过文件后缀名得到文件类型?(50分)

lzf1010

Unregistered / Unconfirmed

JonnyZheng

Unregistered / Unconfirmed

lzf1010

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

lixin38

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

lzf1010

Unregistered / Unconfirmed

落地无声

Unregistered / Unconfirmed

阿九

Unregistered / Unconfirmed

lzf1010

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

lzf1010

Unregistered / Unconfirmed

Similar threads