FormHide (Sender : TObject ) beginįTraceBarUpdating : = False end end procedure TfrmOption. Title ), MB_ICONINFORMATION ) ĬanClose : = False end end end procedure TfrmOption. MessageBox ( 'Input folder is located in CD-ROM, please select output folder.' , Text ) ) ) if LDriveType = DRIVE_CDROM then beginĪpplication. LDriveType : = GetDriveType (PChar (ExtractFileDrive (edtOutPath. LDriveType : = GetDriveType (PChar (ExtractFileDrive (FAVProbe. ModalResult = mrOk then begin if edtOutPath. FormCloseQuery (Sender : TObject var CanClose : Boolean ) var Windows, Messages, SysUtils, end procedure TfrmOption.
0 kommentar(er)
