If im correct delete this line
Code:
if MsgBox(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
It would be like this
Code:
MyChangeDiscMessage;
MyChangeDisc.showmodel;
If modelresult=mrno then ISDoneError := True;
Code:
procedure ButtonOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
case hBtn of
CDYesBtn: begin MyExit.ModalResult:= mrYes; end;
CDNoBtn: begin MyExit.ModalResult:= mrNo; end;
end;
end;
What is that?? Is that fine??
Correct me if im wrong