Lazarus在Linux下调用mplayer播放器的例子

bugxiong

1. uses
   
2.   Classes, ..., FileUtil, LCLProc, UTF8Process;
   
3. 
   
4. ...
   
5. 
   
6. implementation
   
7. 
   
8. procedure TMainForm.Button1Click(Sender: TObject);
   
9. var
   
10.   Player: TProcessUTF8;
    
11.   Filename: String;
    
12.   PlayerPath: String;
    
13.   PlayerParams: String;
    
14. begin
    
15.   Filename:='/home/username/video.mpg';
    
16.   PlayerPath:=FindDefaultExecutablePath('mplayer');
    
17.   PlayerParams:='"'+Filename+'"';
    
18.   Player:=TProcessUTF8.Create(nil);
    
19.   try
    
20.     Player.CommandLine:=PlayerPath+' '+PlayerParams;
    
21.     Player.Execute;
    
22.   finally
    
23.     Player.Free;
    
24.   end;
    
25. end;

复制代码

heroical

windows下是很么效果呢？