이노셋업 (Inno Setup) // Tray 버튼 만들기

이노셋업 (Inno Setup) // Tray 버튼 만들기



Tray 버튼 예시

---

드디어 Tray 기능을 제대로 쓸줄알게 되어 한번 포스팅 해봅니다.
주의 ) About 버튼과 동시에 사용할수 없습니다
         원래는 가능한데 제가 아직까지 잘 못해요...

우선
여기로 가서 itt0.1.0.exe를 다둔로드 받으신후 설치해주세요.

---

Tray 버튼.txt

#include ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Tray','ScriptPath','');

[Code]
procedure OnClick(sender:TObject);
begin
  ITT_MinimizeToTray();
  ITT_ShowBalloon('트레이 상태 입니다!' #13#13, '현재 트레이 상태입니다 ' #13 '아이콘을 누르시면 트레이 상태가 해제됩니다',10);
end;

procedure CreateTrayLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
var
  TrayButton: TNewButton;
begin
  TrayButton := TNewButton.Create(ParentForm);
  TrayButton.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
  TrayButton.Top := CancelButton.Top;
  TrayButton.Width := CancelButton.Width;
  TrayButton.Height := CancelButton.Height;
  TrayButton.Caption := '&Tray';
  TrayButton.OnClick := @OnClick;
  TrayButton.Parent := ParentForm;
end;

procedure InitializeWizard();
begin
 ITT_Init(); //중요
 CreateTrayLabel(WizardForm, WizardForm.CancelButton);
end;

저렇게 해주시면 트레이 버튼이 생성 됩니다.

P.S InitializeWizard(); 를 이미 사용중이라면
ITT_Init();
CreateTrayLabel(WizardForm, WizardForm.CancelButton);
만 추가해주시면 됩니다.