errorcode := ShellExecute(0, 'open', pchar('c:test.txt'), nil, nil, SW_NORMAL); case errorcode of 2:showmessage('file not found');
確定！ 回上一頁
