执行的顺序问题? |
答題得分者是:st33chen
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
[code delphi] procedure TForm1.RunExe; var l:string; begin abstable1.first; got_it:=false; while (not table1.eof) and (not got_it) do begin if (((FormatDateTime('yy:mm:dd',now)=FormatDateTime('yy:mm:dd',Table1.FieldByName('提醒日期').AsDateTime)) and (formatdatetime('HH:mm',now)=formatdatetime('HH:mm',Table1.FieldByName('提醒时间').AsDateTime))) or (formatdatetime('HH:mm',now)=formatdatetime('HH:mm',Table1.FieldByName('提醒时间').AsDateTime))) then got_it:=true else begin abstable1.Next ; end; end; if not abstable1.Eof then begin l:=table1.FieldByName('提醒内容').AsString; if l= '执行指定文件' then begin ShellExecute(Handle,'open',PChar(Table1.FieldByName('声音/执行文件').AsString),nil,nil,sw_shownormal); end; if Table1.FieldByName('*').AsString <> ' ' then Table1.Delete ; end; table1.refresh; end; [/code] 问题来了。每次运行到这里。shellexecute还没有执行,就DELETE了。如果把最后三条语句注销。则可以正常运行shellexecute,请问各位大大,是是么原因呢?谢谢了
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
1. 試著找一下 waitforsingleobject 2. 我自己曾用過的方法是 利用 clipboard 傳遞結束訊息 called_process 執行結束離開前寫一個訊息到 clipboard calling_process 設一個 timer 去檢查 該訊息是否存在 存在了才做後續工作 ( 依您的例子是 delete ) 此法是剛學 delphi 不久碰到的問題, 想了許久才試出這個土法煉鋼的方法 用在 批次結帳上面 參考一下
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-04-20 17:22:38, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |