* Goes into LoadApiDlls DECLARE INTEGER DeleteForm IN winspool.drv; INTEGER hPrinter,; STRING pFormName * DeleteForm method PROCEDURE DeleteForm(tcFormName, tcPrinterName) LOCAL lhPrinter, llSuccess IF PCOUNT() > 1 This.cPrinterName = tcPrinterName ENDIF This.ClearErrors() lhPrinter = 0 IF OpenPrinter(This.cPrinterName, @lhPrinter, 0) = 0 This.cErrorMessage = "Unable to get printer handle for '" + This.cPrinterName + "." This.nApiErrorCode = GetLastError() This.cApiErrorMessage = This.ApiErrorText(This.nApiErrorCode) RETURN .F. ENDIF * Finally, call the API IF DeleteForm(lhPrinter, tcFormName) = 0 This.cErrorMessage = "Unable to delete Form '" + tcFormName + "'." This.nApiErrorCode = GetLastError() This.cApiErrorMessage = This.ApiErrorText(This.nApiErrorCode) llSuccess = .F. ELSE llSuccess = .T. ENDIF = ClosePrinter(lhPrinter) RETURN llSuccess