type 
  STATE = record 
    Flags1: DWORD; 
    dwWin95Unused: DWORD; 
    uWin95Unused: UINT; 
    lParamSort: Integer; 
    iSortDirection: Integer; 
    version: UINT; 
    uNotUsed: UINT; 
    Flags2: DWORD; 
  end; 
 
procedure SHGetSetSettings(var lpss: STATE; dwMask: DWORD; bSet: BOOL) 
  stdcall; external 'shell32.dll'; 
 
function Extensions: boolean; 
var 
  lpss: STATE; 
begin 
  SHGetSetSettings(lpss, 2, False); 
  Result := lpss.Flags1 and 2 > 0; 
end; 
 
 
// Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Extensions then showmessage('Dateierweiterungen werden angezeigt') 
  else showmessage('Dateierweiterungen sind ausgeblendet'); 
end;