삽질/Delphi
[Delphi] InnoSetup : 설치/제거 할 때 프로그램 종료하기
푸딩s
2013. 8. 7. 14:39
InnoSetup [Code] 부분에 이렇게 넣으면
설치하거나 제거할 때 강제로 프로세스를 종료한다!
[Code]
const
WM_CLOSE = $0010;
// 프로그램 설치 시
function InitializeSetup: Boolean;
var
Wnd: HWND;
begin
while(true) do
begin
Wnd := FindWindowByClassName('메인폼클래스명');
if Wnd <> 0 then
begin
SendMessage(Wnd, WM_CLOSE, 0, 0);
end
else
begin
break;
end;
end;
Result := True;
end;
// 프로그램 제거 시
function InitializeUninstall: Boolean;
var
Wnd: HWND;
begin
while(true) do
begin
Wnd := FindWindowByClassName('메인폼클래스명');
if Wnd <> 0 then
begin
SendMessage(Wnd, WM_CLOSE, 0, 0);
end
else
begin
break;
end;
end;
Result := True;
end;