上传文件 填写文件

 i:=0;    yc1:    i:=i+1;    if i>=20 then   goto v1;    dengdai(8,0);    h1:=findwindow(nil,'选择要上载的文件，通过: www.pingjiata.com');    if h1=0 then  goto yc1;

   h2:=findwindowex(h1,0,'ComboBoxEx32',0);   sa:=bbb;   SendMessage(h2,WM_SETTEXT,0,LPARAM(sa));   dengdai(3,0);

  //打开(&O)   //    showmessage('3');   h2:=findwindowex(h1,0,nil,'打开(&O)');        sendmessage(h2,WM_LButtonDown,0,makelParam(0,0));        sendmessage(h2,WM_LButtonUp,0,makelParam(0,0));         dengdai(5,0);         sendmessage(h2,WM_LButtonDown,0,makelParam(0,0));        sendmessage(h2,WM_LButtonUp,0,makelParam(0,0));