如何在程序中使用MediaPlayer7.0(100分)

  • 主题发起人 主题发起人 LeeChange
  • 开始时间 开始时间
shellexecute
 
inport ActivX 空间
 
uses shellapi;
shellexecute(handle,open,Pchar(path),nil,nil,SW_SHOWNORMAL);
 
import an Active Control
 
除了ShellExecute,都可以。
 
with OleContainer1do

begin

CreateObject('MediaPlayer.MediaPlayer.1', False);
do
Verb(PrimaryVerb)
end;
 
多人接受答案了。
 
后退
顶部