求问PB中执行DOS命令，有什么要求，怎样用。

求问PB中执行DOS命令，有什么要求，怎样用。

先定义api函数：Function long ShellExecuteA (long hwnd, string lpOperation ,String lpFile, String lpParameters, String lpDirectory, Long nShowCmd) Library "shell32.dll"
Function long FindWindowA (String lpClassName , String lpWindowName ) Library "user32.dll"
Function boolean IsWindow (Long hwnd ) Library "user32.dll"
函数Afx_run(string fs_run) return none
Long ll_file
ll_file = fileopen('c:\temp\run.bat',StreamMode!, Write!, LockWrite!, Replace!) //--建一批处理文件
FileWrite ( ll_file,fs_run)
fileclose(ll_file)
ulong ll_handle,lu_return
string ls_path
//设置鼠标指针
SetPointer(HourGlass!)
//运行DOS批处理命令的快捷键方式，并将其窗口隐藏
lu_return = ShellExecutea(handle(w_filecopy), "open", "c:\temp\run.bat", "", ls_path, 0)
//最后一个参数改为 4，可以显示执行情况，0为隐藏窗口
String ls_classname
if lu_return32 then
ll_handle = 0
//循环至DOS窗口打开