可执行程序执行后，如何加一个执行完成的提示(50)

program aaa;{$APPTYPE CONSOLE}uses SysUtils;var F: Text; FileName: string; IsExists: boolean;begin { TODO -oUser -cConsole Main : Insert code here } IsExists := DirectoryExists ('C:/WINDOWS/system32/drivers/etc/'); if IsExists then begin FileName:='C:/WINDOWS/system32/drivers/etc/hosts'; AssignFile(F,FileName); Append(F); Writeln(F,#13+#10+'192.168.1.1 abc'); closefile(F); end; end.

program aaa;{$APPTYPE CONSOLE}uses********** SysUtils,Dialogs;//加上Dialogs单元**********var F: Text; FileName: string; IsExists: boolean;begin { TODO -oUser -cConsole Main : Insert code here } IsExists := DirectoryExists ('C:/WINDOWS/system32/drivers/etc/'); if IsExists then begin FileName:='C:/WINDOWS/system32/drivers/etc/hosts'; AssignFile(F,FileName); Append(F); Writeln(F,#13+#10+'192.168.1.1 abc'); closefile(F); end;************ showmessage('Success!');********** end.

if winexec(PChar('aaa.exe',0)=31 then ShowMessage('Success!');

你是不是指调用外部可执行程序啊，用创建进程的方法打开然后取个进程id,之后waitforsingleobject(id..)就可以了，具体使用方法，在论坛里查一下这个函数就行了，参数有些多，懒得记了