close 
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
    i := ShellExecute(0, 'open', PChar('C:\test.mpg'), nil, nil, SW_SHOW);
    if i <= 32 then
    ShowMessage(SysErrorMessage(GetLastError));
end;
arrow
arrow
    全站熱搜

    浮雲 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄