請問：ShellExecute如何加入Windows Media player的command line使可以「自動播放」、「自動關閉」、「全螢幕播放」,請問以下程式要如何修改,謝謝! ShellExecute(application.Handle, PChar('open'), pchar('A01.dat'),nil,nil,SW_MAXIMIZE); 發表人 -

ShellExecute(0, nil, pchar('PLAYER'),filename,nil,SW_SHOW); PLAYER: [The path of mplayer2.exe] /play: Start playing the file as soon the player is launched. /close: Close the player after playback (only works when used with /play). like: ... /play /close .... 全螢幕播放=> ShellExecute(0, nil, pchar('PLAYER'),filename,nil,SW_SHOWMAXIMIZED); 自動關閉 => ShellExecute(0, nil, pchar('PLAYER'),pchar('/play /close ' filename),nil,SW_SHOW); 發表人 - ralph 於 2004/03/09 07:10:49

那如果要偵測wmp是不是已經播完了，不就要用個迴圈來一直findwindow下去~~那如果同時間有其他wmp視窗也在擾亂，不就~~~~~ 如果非得用WMP來完成這個專題的話，建議用

function ExecuteAndWait(const CommandLine : string) : cardinal;
const ErrUINT = High(Cardinal);
var
 tSI : TStartupInfo;
 tPI : TProcessInformation;
 dwI : DWORD;
 VarU : UINT;
begin
 Result := ErrUINT;
 FillChar(tSI, sizeof(TStartupInfo), 0);
 tSI.cb := sizeof(TStartupInfo);
 tSI.wShowWindow:=SW_SHOW;     if (CreateProcess(nil, pchar(CommandLine), nil, nil, False, CREATE_NEW_PROCESS_GROUP or NORMAL_PRIORITY_CLASS or 0, nil, nil, tSI, tPI)) then begin
   dwI := WaitForSingleObject(tPI.hProcess, INFINITE);       if (dwI = WAIT_OBJECT_0) then
     if (GetExitCodeProcess(tPI.hProcess, dwI)) then Result := dwI;       CloseHandle(tPI.hProcess);
   CloseHandle(tPI.hThread);
 end;
end;    procedure TForm.Button1click(sender:TObject);
begin
   executeandwait('c:\program....\mplayer2.exe /play /close abc.mp3');
   // 在播完上面那一首之前，不會執行底下的程式
   showmessage('播放完畢');
end;