@@ -25,7 +25,7 @@ object UninstSharedFileForm: TUninstSharedFileForm
Height = 23
Anchors = [akBottom]
Caption = '*'
- ModalResult = 9
+ ModalResult = 13
TabOrder = 3
end
object NoButton: TNewButton
@@ -45,7 +45,7 @@ object UninstSharedFileForm: TUninstSharedFileForm
- ModalResult = 10
+ ModalResult = 14
TabOrder = 1
object YesButton: TNewButton
@@ -45,12 +45,6 @@ uses
{$R *.DFM}
-const
- { These aren't defined on Delphi 2 }
- mrAll = mrNo + 1;
- mrNoToAll = mrAll + 1;
- mrYesToAll = mrNoToAll + 1;
-
function ExecuteRemoveSharedFileDlg(const Filename: String;
var AAll: Boolean): Boolean;
var