Inno Setup 如何在安裝程式前，先檢查並關閉之前的程式

在建立Installer時，有可能user的程式因為還在執行，而Installer無法寫入。
底下是在Install時直接關閉前一個程式。

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var appWnd: HWND;
begin
  if (CurStep = ssInstall) then
  begin
    appWnd := FindWindowByClassName('your class name');
    if (appWnd <> 0) then
    begin
      PostMessage(appWnd, 18, 0, 0);       // quit
    end;
  end;
end;