1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//#include "utilcls.h"
//#include "comobj.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vPDFC, ProgramIsRunning;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vPDFC = Variant::CreateObject("PDFCreator.clsPDFCreator");
vPDFC.OleFunction("cStart", "/NoProcessingAtStart", false) = true;
//ProgramIsRunning = vPDFC.OleProcedure("cProgramIsRunning");
vPDFC.OlePropertySet("cVisible", true);
vPDFC.OlePropertyGet("cOption", "UseAutosave") = true;
vPDFC.OlePropertyGet("cOption", "UseAutosaveDirectory") = true;
//vPDFC.OlePropertyGet("cOption",
HWND hwnd;
hwnd = FindWindow("ThunderRT6FormDC", "PDFCreator - Moniteur d'impression PDF");
OpenIcon(hwnd);
BringWindowToTop(hwnd);
String DefaultPrinter = vPDFC.OlePropertyGet("cDefaultPrinter");
vPDFC.OlePropertySet("cDefaultPrinter", "PDFCreator");
DefaultPrinter = vPDFC.OlePropertyGet("cDefaultPrinter");
//vPDFC.OleFunction("cGetLogfile");
//vPDFC.OlePropertyGet("cProgramRelease", true);
//vPDFC.OlePropertyGet("cProgramIsRunning") = true;
//vPDFC.OlePropertyGet("cPDFCreatorApplicationPath");
//vPDFC.OleFunction("cClose");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vPDFC.OleFunction("cClose");
} |
Partager