Du hast ja keinerlei Fehlerprüfungen in deinem Code!
Man muss ja mindestens mal abfragen, ob der Ergebnis von LoadLibrary in Ordnung ist.
Und noch fünf Hinweise:
* Besser die
DLL so laden:
Delphi-Quellcode:
Instance:=LoadLibraryEx(pchar(LibraryName),0,LOAD_LIBRARY_AS_DATAFILE);
if Instance = 0
then raise Exception.CreateFmt('
%s kann nicht geladen werden', [LibraryName]);
* nicht vergessen, die
DLL mit FreeLibrary freizugeben
* Mit der Klasse TResourcestream kommst du einfacher an die Daten ran.
* Im Programmverzeichnis hat man häufig keine Schreibrechte. Die AVI-Datei gehört ins TEMP-Verzeichnis
* Trenne das Entpacken der Video-Datei von dem Abspielen der Daten. Mit zwei Funktionen mit entsprechenden Übergabeparametern wird's besser.