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 !