MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[DeddyH]

Es ist doch schon 2 mal gesagt worden: das Create gehört vor das try.

Delphi-Quellcode:

if FindResource(hInstance, PChar(aResName), 'MIDIFILE') <> 0 then
  begin // Ist die Ressource verfügbar
    Stream := TResourceStream.Create(hInstance, aResName, 'MIDIFILE'); // Stream erstellen
    try      
      Stream.SaveToFile(tmpPath); // temporäre Datei speichern
    finally
      Stream.Free;
    end;
  end