Video mit InnoSetup

[City Light]

Hallo
ich hoffe Ihr könnt mir beim mein Problem weiter helfen.Mit vollgenden CODE kann man beim starten der Setup ein Video starten.
[code=delphi][Files]
Source: Video.wmv; DestDir: {tmp}; Flags: dontcopy

Code:

 
function mciSendString(lpstrCommand: string; lpstrReturnString: string; uReturnLength:integer; hwndCallback:integer):integer; 
external '[e-mail] stdcall'; 

procedure InitializeWizard(); 
begin 
    ExtractTemporaryFile(ExpandConstant('Video.wmv')); 
    mciSendString(ExpandConstant('play {tmp}\Video.wmv'),'Null',0,0); 
end;

Nun zu der aufgabe die ich gerne erreichen möchte.Nähmlich das ,daß Video im der MainForm von InnoSetup als hintergrund erscheint ...bitte wer kann hier helfen.

[City Light]

Hat immer noch keiner eine Idee dazu?