var
FileName: string;
begin
if mpegstream<>0 then
begin
FMPStop(mpegstream);
FMPClose(mpegstream);
mpegstream:=0;
end;
// if OpenDialog1.Execute then
begin
fillchar(fmpopenstruct,sizeof(FMP_OPEN_STRUCT),0);
FileName:= 'e:/song/老.mpg';
FMPOpenStruct.lpFileName:=PChar(FileName);//pchar(OpenDialog1.filename);
FMPOpenStruct.dwCALLback:=DWORD(@FMPCallbackProc);
mpegstream:=FMPOpen(FMPF_BUFFERS,DWORD(@FMPOpenStruct));
FMPPlay(mpegstream,FMPF_POS_END or FMPF_END_STOP,0);
end