Sind die gewünschten datei typen mit meiner anwendung verküp

[mimi]

hatte ich auch schon gefunden in einem beispiel:

Delphi-Quellcode:

function FindExecutable(const Extension: String): String;
const
  ASSOCF_NOTRUNCATE = $00000020;
  ASSOCSTR_EXECUTABLE = 2;
var
  BufSize: DWORD;
begin
  BufSize := MAX_PATH;
  SetLength(Result, BufSize);
  if AssocQueryString(ASSOCF_NOTRUNCATE, ASSOCSTR_EXECUTABLE, PChar(Extension), 'open',
  PChar(Result), BufSize) = S_OK then
    SetLength(Result, BufSize - 1)
  else
    Result := '';
end;

problem ist dabei nur das es bei mir bei .mid dateien '' zurück gibt obwhol ist eine anwneudng gibt die damit verküfpt ist. es mag auch dran liegen das es anscheind zwei mal .mid gibt einmal groß und einmal kleingeschrieben und ich bekommme das kleingeschribene einfach nicht weg, habe schon mehrmals danach gesucht in der RegEdit !