[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 !

高手有没有？有知道的吗?

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

您好,

1. 試著找一下 waitforsingleobject


2. 我自己曾用過的方法是 利用 clipboard 傳遞結束訊息

called_process 執行結束離開前寫一個訊息到 clipboard

calling_process 設一個 timer 去檢查 該訊息是否存在
存在了才做後續工作 ( 依您的例子是 delete )

此法是剛學 delphi 不久碰到的問題, 想了許久才試出這個土法煉鋼的方法
用在 批次結帳上面

參考一下

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄