DELPHI常用技巧

 等待程序运行结束

1. procedure TForm1.Button1Click(Sender: TObject);   
2. var  
3.   sCommandLine: string;   
4.   bCreateProcess: boolean;   
5.   lpStartupInfo: TStartupInfo;   
6.   lpProcessInformation: TProcessInformation;   
7. begin  
8.   sCommandLine := 'D:/TEMP/TEST.EXE';   
9.   //  StartupInfo   
10.   FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);   
11.   lpStartupInfo.cb := Sizeof(TStartupInfo);   
12.   lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;   
13.   lpStartupInfo.wShowWindow := SW_NORMAL;   
14.   
15.   bCreateProcess := CreateProcess(nil, PChar(sCommandLine),   
16.     nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,   
17.     nil, nil, lpStartupInfo, lpProcessInformation);   
18.   if bCreateProcess then      //等外部进程的结束   
19.     WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);   
20. end;  

监视另一个程序的启动和关闭的动作

1. Procedure WinExecAndWait(CommandLine:String);   
2.   var ComLineBuffer: array[0..512] of char;   
3.       StartupInfo: TStartupInfo;   
4.       ProcessInfo: TProcessInformation;   
5.       Re:Cardinal;   
6.   begin  
7.     StrPCopy(ComLineBuffer,CommandLine);   
8.     FillChar(StartupInfo, Sizeof(StartupInfo), #0);   
9.     StartupInfo.cb := Sizeof(StartupInfo);   
10.     StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   
11.     StartupInfo.wShowWindow := SW_HIDE;   
12.     if CreateProcess(nil,   
13.                      ComLineBuffer,  { pointer to command line string }  
14.                      nil,  { pointer to process security attributes }  
15.                      nil,  { pointer to thread security attributes }  
16.                      True,  { handle inheritance flag }  
17.                      CREATE_NEW_CONSOLE or   { creation flags }  
18.                      NORMAL_PRIORITY_CLASS,   
19.                      nil,   { pointer to new environment block }  
20.                      nil,   { pointer to current directory name, PChar}  
21.                      StartupInfo,  { pointer to STARTUPINFO }  
22.                      ProcessInfo) { pointer to PROCESS_INF }  
23.     then  
24.     begin  
25.       WaitforSingleObject(ProcessInfo.hProcess, INFINITE);   
26.       GetExitCodeProcess(ProcessInfo.hProcess, Re);   
27.       CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }  
28.       CloseHandle(ProcessInfo.hThread);   
29.     end;   
30.   end;

对某一个窗口发送鼠标消息

1. SendMessage(Handle,WM_LBUTTONDBLCLK,0,0); 

对系统发消息关闭程序

1. SendMessage(Handle, WM_CLOSE, 0, 0);