AVIFileOpen(pfile, PAnsiChar(WorkFile), OF_WRITE or OF_CREATE, nil)
Das erscheint mir nicht ganz logisch. Denn diese Funktion stellt sich generisch um zwischen WideString und AnsiString. Diese
{$IFDEF Unicode}
sollten eigentlich genau dafür sorgen, dass du das nicht machen musst
Vielleicht sollte sich da jemand einbringen, der ein
Unicode-Delphi hat. Ich hab leider nur ein Delphi 2007
Sorry.
Gruß, Chris
[EDIT]OMG - nimm bitte nochmal das originalprojekt und suche nach
{$Undef Unicode}
und mach ein Punkt vor das $-Zeichen (Compiler-Direktive deaktivieren)
Unicode muss aktiv bleiben, wenn es denn da ist. Jetzt bin ich mnir nur nicht sicher, ob Delphi XE dieses Define automatisch macht, oder ob du es von Hand machen musst.
Sollte es nach dieser Punkt-Geschichte immer noch nicht funktionieren, dann mach mal an diesen ganzen Stellen ein
{$DEFINE UNICODE}
[/EDIT]
[EDIT2]
Dieses Undef ist wohl nur in der
Unit VFW.pas. Der Test sollte also einfach sein
[/EDIT2]