GetOpenFileName() bleibt hängen!

[d3g]

Hi Leute,

bei mir häufen sich im Moment die Probleme

Also, ich benutze folgende Funktion:

Code:

procedure OpenFile(Handle: hWnd);
var
  Buf: array[0..MAX_PATH] of Char;
  ofn: TOpenFileName;
begin
  ZeroMemory(@Buf, SizeOf(Buf));
  ofn.lStructSize := SizeOf(TOpenFileName);
  ofn.hWndOwner := Handle;
  ofn.hInstance := hInstance;
  ofn.lpstrFilter := 'All playable files (*.wav, *.mid[i], *.rmi, *.mid)|' +
                       '*.wav; *.mid; *.midi; *.rmi; *.mid|' +
                     'Wave files (*.wav)|*.wav' +
                     'Sequencer files (*.mid[i], *.rmi)|*.mid; *.midi; *.rmi' +
                     'Audio CD tracks (*.cda)|*.cda';
  ofn.nFilterIndex := 0;
  ofn.lpstrFile := Buf;
  ofn.nMaxFile := SizeOf(Buf);
  ofn.Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_LONGNAMES;
  ofn.pvReserved := nil;
  ofn.dwReserved := 0;

  if GetOpenFileName(ofn) then begin
    mciSendString('close sound', nil, 0, 0);
    FileName := Buf;
    mciSendString(PChar('open "' + FileName + '" alias sound'), nil, 0, 0);
  end;
end;

Mein Problem dabei: das Programm bleibt hängen und ich hab keine Ahnung warum. Ich habe bei Luckie nachgeschaut und der macht es nicht sonderlich anders als ich...

Kann mir jemand von euch sagen, was ich falsch mache?

Danke schonmal,
d3g