Dosya Türünün Öğrenilmesi?

[Raskolnikov]

Merhabalar.

Bir dosyanın ne dosyası olduğunu nasıl anlayabilirim.Dosya özelliklerinden araştırdım ama bulamadım.Örneğin OpenDialog ile bir dosya seçtim.Bu dosyanın mesela JPEG olduğunu öğrenmenin kolay bir yolu var mı yoksa dosya uzuntısını belirleyip kendim mi atamalıyım

Kod: Tümünü seç

if FileEx='.jpeg' then
result:='Jpeg Dosyası';

gibi gibi...?

[conari]

ExtractFileExt (FileName) ; sana uzantısını verir. bu uzantıya göre de registryden okuyabilirsiniz.

Kod: Tümünü seç

var
 Reg: TRegistry;
 FileType: string;
begin
    Reg := nil;
    try
      Reg := TRegistry.Create;
      Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKeyReadOnly(ExtractFileExt (FileName)) then
      FileType := Reg.ReadString('');
      finally
          Reg.CloseKey;
        end;

alabilirsiniz.