Einzelnen Beitrag anzeigen

Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#1

Video mit InnoSetup

  Alt 26. Feb 2006, 16:16
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 'mciSendStringA@winmm.dll 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.
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat