Developer

C:\Program Files\zvprt50>zvprtcfg zan image printer(bw) -show

Build Datetime=May 1 2008, 08:49:23
File Version=5, 0, 4, 1
OS Name=Microsoft Windows XP Professional x64 Edition
OS Version=5.02.3790  Service Pack 1
Windows Directory=C:\WINDOWS
System Directory=C:\WINDOWS\system32
Printer Driver Directory=C:\WINDOWS\system32\spool\DRIVERS\x64
Configuration Directory=C:\Documents and Settings\Administrator\Application Data
\zvprt50\zan image printer(bw)
Printer GPD File=C:\WINDOWS\system32\spool\DRIVERS\x64\3\zvprt2.gpd
Debug Logging=Disabled

Windows environment variables:
[%ALLUSERSPROFILE]=C:\Documents and Settings\All Users
[%APPDATA]=C:\Documents and Settings\Administrator\Application Data
[%TEMP]=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
[%TMP]=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
[%USERDOMAIN]=ZAN-PMLGRLABUJT
[%USERNAME]=Administrator
[%USERPROFILE]=C:\Documents and Settings\Administrator
[%windir]=C:\WINDOWS

Parameters(keyword-value pairs) for zan image printer(bw):
save.folder=E:\test\
save.basefilename=[%DocName]
save.filenameindex=1
save.filexistact=1
save.popupdialog=2

Option Explicit
Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long

'Used CSIDL values.
'For the full list, search MSDN for "CSIDL Values"
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0

Private Const MAX_PATH = 260

Private Function GetZanPrinterFolder(csidl As Long) As String

Dim sPath As String * MAX_PATH
Dim SpecialFolderPath As String
Dim lResult As Long
  
sPath = Space$(MAX_PATH)
     
lResult = SHGetFolderPath(0, _
                   csidl, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
SpecialFolderPath = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
   
GetZanPrinterFolder = SpecialFolderPath
End Function

Public Sub Main()
Dim IniFileFolder As String
'Use CSIDL_COMMON_APPDATA instead if
'all users share the same settings
IniFileFolder = GetZanPrinterFolder(CSIDL_APPDATA)
If Right$(IniFileFolder, 1) <> "\" Then
    IniFileFolder = IniFileFolder & "\"
End If

IniFileFolder=IniFileFolder & "zvprt50\Zan Image Printer(bw)"
End Sub

uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder,
Graphics;
procedure GetZanPrinterFolder(var APath: String);
implementation
//get the zan INI setting files folder
//for bw printer
procedure GetZanPrinterFolder(var APath: String);
begin
  SetLength(APath, MAX_PATH);
  FillChar(APath[1], MAX_PATH, 0);

  //Use CSIDL_COMMON_APPDATA instead if
  //all users share the same settings
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(APath));
  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\') then
  begin
  APath := APath + '\';
  end;
  APath := APath + 'zvprt50\Zan Image Printer(bw)\';
end;

#include <windows.h>
#include <shlobj.h>
#include <shlwapi.h>

#pragma comment(lib, "shlwapi.lib")

char szPath[MAX_PATH];
HRESULT hr;

//Use CSIDL_COMMON_APPDATA instead if
//all users share the same settings
hr = SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, szPath);
PathAddBackslash(szPath);

strcat(szPath, "zvprt50\\Zan Image Printer(bw)");

using namespace System;

String^ strPath;
	
//Use Environment::SpecialFolder::CommonApplicationData instead if 
//all users share the same settings	
//strPath = Environment::GetFolderPath
//(Environment::SpecialFolder::CommonApplicationData);
strPath = Environment::GetFolderPath
          (Environment::SpecialFolder::ApplicationData);

if(!strPath->EndsWith(L"\\")) strPath = String::Concat(strPath, L"\\");
strPath = String::Concat(strPath, L"zvprt50\\Zan Image Printer(bw)");

Dim strPath As String

'Use Environment.SpecialFolder.CommonApplicationData instead if 
'all users share the same settings	
'strPath = Environment.GetFolderPath
'(Environment.SpecialFolder.CommonApplicationData)
strPath = Environment.GetFolderPath _
         (Environment.SpecialFolder.ApplicationData)

If Not strPath.EndsWith("\") Then
    strPath = String.Concat(strPath, "\")
End If

string strPath;

//Use Environment::SpecialFolder::CommonApplicationData instead if 
//all users share the same settings	
//strPath = Environment::GetFolderPath
//(Environment::SpecialFolder::CommonApplicationData);
strPath = Environment::GetFolderPath
 	(Environment::SpecialFolder::ApplicationData);

if(!strPath->EndsWith(L"\\")) strPath = String::Concat(strPath, L"\\");
strPath = String::Concat(strPath, 
    L"zvprt50\\Zan Image Printer(bw)\\save.ini");

Option Explicit
Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32.dll" _
Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer
   
Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer
   
Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer
 

'Used CSIDL values.
'For the full list, search MSDN for "CSIDL Values"
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0

Private Const MAX_PATH = 260

Private Function GetZanPrinterFolder(csidl As Long) As String

Dim sPath As String * MAX_PATH
Dim SpecialFolderPath As String
Dim lResult As Long
  
sPath = Space$(MAX_PATH)
lResult = SHGetFolderPath(0, _
                   csidl, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
SpecialFolderPath = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
   
GetZanPrinterFolder = SpecialFolderPath
End Function

Public Sub Main() 
Dim IniFileFolder As String
Dim SaveFolder As String * MAX_PATH
Dim lngLength As Long
Dim PopupDlgInd As Integer

'get the save.ini file full path.
'Use CSIDL_COMMON_APPDATA instead if
'all users share the same settings
IniFileFolder = GetZanPrinterFolder(CSIDL_APPDATA)
If Right$(IniFileFolder, 1) <> "\" Then
    IniFileFolder = IniFileFolder & "\"
End If

IniFileFolder=IniFileFolder & "zvprt50\Zan Image Printer(bw)\save.ini"
 
lngLength = GetPrivateProfileString("save", "folder", "", _
 SaveFolder, MAX_PATH, IniFileFolder)
 
WritePrivateProfileString "save", "basefilename", _
 "[%DocName]_[%Page]", IniFileFolder

PopupDlgInd = GetPrivateProfileInt("save", "popupdialog", _
  0, IniFileFolder)

WritePrivateProfileString "save", "filexistact", "1", _
  IniFileFolder

End Sub

uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder,
Graphics;

procedure GetZanPrinterFolder(var APath: String);
//save.ini read/write
procedure test_saveini();

implementation

//get the zan INI setting files folder
//for bw printer
procedure GetZanPrinterFolder(var APath: String);
begin
  SetLength(APath, MAX_PATH);
  FillChar(APath[1], MAX_PATH, 0);

  //Use CSIDL_COMMON_APPDATA instead if
  //all users share the same settings
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(APath));
  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\') then
  begin
  APath := APath + '\';
  end;
  APath := APath + 'zvprt50\Zan Image Printer(bw)\';
end;

//save.ini read/write
procedure test_saveini();
var
saveinifilepath: String;
SaveFolder: String;
PopupDlgInd: Integer;
begin
 SetLength(SaveFolder, MAX_PATH);

 GetZanPrinterFolder(saveinifilepath);
 saveinifilepath := saveinifilepath + 'save.ini';

 GetPrivateProfileString('save','folder','',
   PChar(SaveFolder),MAX_PATH, PChar(saveinifilepath));

 WritePrivateProfileString('save', 'basefilename',
   '[%DocName]_[%Page]', PChar(saveinifilepath));

 PopupDlgInd := GetPrivateProfileInt('save','popupdialog',
   0, PChar(saveinifilepath));

 WritePrivateProfileString('save', 'filexistact', '1',
   PChar(saveinifilepath));
 //use SaveFolder, PopupDlgInd below
end;

#include <shlobj.h>

char szAppData[MAX_PATH];
char szValue[MAX_PATH];
HRESULT hr;
DWORD dwPopupDlg;

//Use CSIDL_COMMON_APPDATA instead if
//all users share the same settings	
hr = SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, szAppData);
	
if(szAppData[strlen(szAppData) - 1] != '\\')
{
  strcat(szAppData, "\\");
}
strcat(szAppData, "zvprt50\\Zan Image Printer(bw)");
strcat(szAppData, "\\save.ini");
	
GetPrivateProfileString("save", "folder", "",  szValue, 
   MAX_PATH, szAppData);

WritePrivateProfileString("save", "basefilename", 
  "[%DocName]_[%Page]", szAppData);

dwPopupDlg = GetPrivateProfileInt("save", "popupdialog", 
  0, szAppData);

WritePrivateProfileString("save", "filexistact", "1", 
  szAppData);

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;

// Declare the function that is exported from unmanaged dll:
[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpDefault, 
   StringBuilder^ lpReturnedString, 
   int nSize,
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" bool _cdecl WritePrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpString, 
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileInt(
   String^ lpAppName, 
   String^ lpKeyName,
   int nDefault, 
   String^ lpFileName);

   String^ strPath;

  //Use Environment::SpecialFolder::CommonApplicationData instead if 
  //all users share the same settings	
  //strPath = Environment::GetFolderPath
  //(Environment::SpecialFolder::CommonApplicationData);
  strPath = Environment::GetFolderPath
  (Environment::SpecialFolder::ApplicationData);

  if(!strPath->EndsWith(L"\\")) strPath = String::Concat(strPath, L"\\");
  strPath = String::Concat(strPath, 
   L"zvprt50\\Zan Image Printer(bw)\\save.ini");

  String^ szValue;
  StringBuilder^ tempstr = gcnew StringBuilder(256);

  GetPrivateProfileString(L"save", L"folder", L"", 
   tempstr, tempstr->Capacity, strPath);
  szValue = tempstr->ToString();

  WritePrivateProfileString(L"save", L"basefilename", 
   L"[%DocName]_[%Page]", strPath);

  int dwPopupDlg = GetPrivateProfileInt(L"save", L"popupdialog",  
   0, strPath);

  WritePrivateProfileString(L"save", L"filexistact", L"1", strPath);

Imports System.Runtime.InteropServices
Imports System.Text
Imports System

Module Module1
 Private Declare Function GetPrivateProfileString Lib "kernel32" _
         Alias "GetPrivateProfileStringW" _
        (ByVal lpAppName As String, _
         ByVal lpKeyName As String, _
         ByVal lpDefault As String, _
         ByVal lpReturnedString As StringBuilder, _
         ByVal nSize As Integer, _
         ByVal lpFileName As String) As Integer

 Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
         Alias "GetPrivateProfileIntA" _
        (ByVal lpApplicationName _
         As String, ByVal lpKeyName As String, ByVal nDefault As _
         Integer, ByVal lpFileName As String) As Integer

 Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
         Alias "WritePrivateProfileStringA" _
        (ByVal lpAppName As String, _
         ByVal lpKeyName As String, _
         ByVal lpString As String, _
         ByVal lpFileName As String) As Boolean


 Sub Main()
     Dim strPath As String

     'Use Environment.SpecialFolder.CommonApplicationData instead if 
     'all users share the same settings	
     'strPath = Environment.GetFolderPath
     '(Environment.SpecialFolder.CommonApplicationData)
     strPath = Environment.GetFolderPath _
      (Environment.SpecialFolder.ApplicationData)

     If Not strPath.EndsWith("\") Then
         strPath = String.Concat(strPath, "\")
     End If

     strPath=String.Concat(strPath, "zvprt50\Zan Image Printer(bw)\save.ini")

     Dim szValue As String
     Dim tempstr As StringBuilder
     tempstr = New StringBuilder(256)

     GetPrivateProfileString("save", "folder", "", tempstr, _
         tempstr.Capacity, strPath)
     szValue = tempstr.ToString()

     WritePrivateProfileString("save", "basefilename", _
     "[%DocName]_[%Page]", strPath)

     Dim PopupDlgInd As Integer

     PopupDlgInd = GetPrivateProfileInt("save", "popupdialog", 0, strPath)

     WritePrivateProfileString("save", "filexistact", "1", strPath)
 End Sub
End Module

using System.Runtime.InteropServices;
class Program
{
  static void Main(string[] args)
  {
    string strPath;

    //Use Environment.SpecialFolder.CommonApplicationData instead if 
    //all users share the same settings	
    //strPath = Environment.GetFolderPath
    //(Environment.SpecialFolder.CommonApplicationData);
    strPath = Environment.GetFolderPath
        (Environment.SpecialFolder.ApplicationData);

    if (!strPath.EndsWith("\\")) strPath = String.Concat(strPath, "\\");
    strPath=String.Concat(strPath,"zvprt50\\Zan Image Printer(bw)\\save.ini");
    
    String szValue;
    StringBuilder tempstr = new StringBuilder(256);

    GetPrivateProfileString("save", "folder", "", 
        tempstr, tempstr.Capacity, strPath);
    szValue = tempstr.ToString();

    WritePrivateProfileString("save", "basefilename", 
        "[%DocName]_[%Page]", strPath);

    uint dwPopupDlg = GetPrivateProfileInt("save", "popupdialog",  
        0, strPath);

    WritePrivateProfileString("save","filexistact","1",strPath);
  }
  [DllImport("kernel32.dll")]
  static extern uint GetPrivateProfileString(string lpAppName, 
      string lpKeyName, string lpDefault, 
      StringBuilder lpReturnedString, int nSize, string lpFileName);

  [DllImport("kernel32.dll")]
  static extern bool WritePrivateProfileString(string lpAppName,
                                               string lpKeyName, 
      string lpString, string lpFileName);

  [DllImport("kernel32.dll")]
  static extern uint GetPrivateProfileInt(string lpAppName, 
      string lpKeyName, int nDefault, string lpFileName);
}

Option Explicit

Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long


Private Declare Function GetPrivateProfileString Lib "kernel32.dll" _
Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer
   
Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer
   
Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer
 

'Used CSIDL values.
'For the full list, search MSDN for "CSIDL Values"
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0

Private Const MAX_PATH = 260

Private Function GetZanPrinterFolder(csidl As Long) As String

Dim sPath As String * MAX_PATH
Dim SpecialFolderPath As String
Dim lResult As Long
  
sPath = Space$(MAX_PATH)
     
lResult = SHGetFolderPath(0, _
                   csidl, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
SpecialFolderPath = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
   
GetZanPrinterFolder = SpecialFolderPath
End Function


Public Sub Main()
Dim IniFileFolder As String
Dim Compress As Integer

'get the image.ini file full path.
'Use CSIDL_COMMON_APPDATA instead if
'all users share the same settings
IniFileFolder = GetZanPrinterFolder(CSIDL_APPDATA)
If Right$(IniFileFolder, 1) <> "\" Then
    IniFileFolder = IniFileFolder & "\"
End If

IniFileFolder=IniFileFolder & "zvprt50\Zan Image Printer(bw)\image.ini"
 
WritePrivateProfileString "image", "fileformat", "2", IniFileFolder
WritePrivateProfileString "image", "imagecolor", "3", IniFileFolder
Compress = GetPrivateProfileInt("image", "compression", _
 0, IniFileFolder)

End Sub

uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder,
Graphics;

procedure GetZanPrinterFolder(var APath: String);
//image.ini read/write
procedure test_imageini();

implementation

//get the zan INI setting files folder
//for bw printer
procedure GetZanPrinterFolder(var APath: String);
begin
  SetLength(APath, MAX_PATH);
  FillChar(APath[1], MAX_PATH, 0);

  //Use CSIDL_COMMON_APPDATA instead if
  //all users share the same settings
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(APath));
  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\') then
  begin
  APath := APath + '\';
  end;
  APath := APath + 'zvprt50\Zan Image Printer(bw)\';
end;

//image.ini read/write
procedure test_imageini();
var
imginifilepath: String;
dwCompress: Integer;
begin
 GetZanPrinterFolder(imginifilepath);
 imginifilepath := imginifilepath + 'image.ini';

 WritePrivateProfileString('image', 'fileformat',
                           '2', PChar(imginifilepath));
 WritePrivateProfileString('image', 'imagecolor',
                           '3', PChar(imginifilepath));
 dwCompress := GetPrivateProfileInt('image','compression',
                           0, PChar(imginifilepath));
 //use dwCompress below
end;

#include <shlobj.h>

char szAppData[MAX_PATH];
HRESULT hr;
DWORD dwCompress;

//Use CSIDL_COMMON_APPDATA instead if
//all users share the same settings	
hr = SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, szAppData);
	
if(szAppData[strlen(szAppData) - 1] != '\\')
{
  strcat(szAppData, "\\");
}
strcat(szAppData, "zvprt50\\Zan Image Printer(bw)");
strcat(szAppData, "\\image.ini");
	
WritePrivateProfileString("image", "fileformat", "2", szAppData);
WritePrivateProfileString("image", "imagecolor", "3", szAppData);
dwCompress= GetPrivateProfileInt("image", "compression", 0, szAppData);

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;

//Declare the function that is exported from unmanaged dll:
[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpDefault, 
   StringBuilder^ lpReturnedString, 
   int nSize,
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" bool _cdecl WritePrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpString, 
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileInt(
   String^ lpAppName, 
   String^ lpKeyName,
   int nDefault, 
   String^ lpFileName);

   String^ strPath;
 
  //Use Environment::SpecialFolder::CommonApplicationData instead if 
  //all users share the same settings	
  //strPath = Environment::GetFolderPath
  //(Environment::SpecialFolder::CommonApplicationData);
  strPath = Environment::GetFolderPath
   (Environment::SpecialFolder::ApplicationData);

  if(!strPath->EndsWith(L"\\")) strPath = String::Concat(strPath, L"\\");
  strPath=String::Concat(strPath,L"zvprt50\\Zan Image Printer(bw)\\image.ini");

  WritePrivateProfileString(L"image", L"fileformat", L"2", strPath);
  WritePrivateProfileString(L"image", L"imagecolor", L"3", strPath);

  int dwCompress = GetPrivateProfileInt(L"image", L"compression", 
  0, strPath);

Imports System.Runtime.InteropServices
Imports System.Text
Imports System

Module Module1
 Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
         Alias "GetPrivateProfileIntA" _
        (ByVal lpApplicationName _
         As String, ByVal lpKeyName As String, ByVal nDefault As _
         Integer, ByVal lpFileName As String) As Integer

 Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
         Alias "WritePrivateProfileStringA" _
        (ByVal lpAppName As String, _
         ByVal lpKeyName As String, _
         ByVal lpString As String, _
         ByVal lpFileName As String) As Boolean


 Sub Main()
     Dim strPath As String

     'Use Environment.SpecialFolder.CommonApplicationData instead if 
     'all users share the same settings	
     'strPath = Environment.GetFolderPath
     '(Environment.SpecialFolder.CommonApplicationData)
     strPath = Environment.GetFolderPath _
       (Environment.SpecialFolder.ApplicationData)

     If Not strPath.EndsWith("\") Then
         strPath = String.Concat(strPath, "\")
     End If

     strPath = String.Concat(strPath, _
          "zvprt50\Zan Image Printer(bw)\image.ini")

     Dim dwCompress As Integer
     
     WritePrivateProfileString("image", "fileformat", "2", strPath)
     WritePrivateProfileString("image", "imagecolor", "3", strPath)
     dwCompress = GetPrivateProfileInt("image", "compression", _
                 0, strPath)
 End Sub
End Module

using System.Runtime.InteropServices;
class Program
{
 static void Main(string[] args)
 {
     string strPath;

     //Use Environment.SpecialFolder.CommonApplicationData instead if 
     //all users share the same settings	
     //strPath = Environment.GetFolderPath
     //(Environment.SpecialFolder.CommonApplicationData);
     strPath = Environment.GetFolderPath
         (Environment.SpecialFolder.ApplicationData);

     if (!strPath.EndsWith("\\")) strPath = String.Concat(strPath, "\\");
     strPath = String.Concat(strPath, 
         "zvprt50\\Zan Image Printer(bw)\\image.ini");

     WritePrivateProfileString("image", "fileformat", "2", strPath);
     WritePrivateProfileString("image", "imagecolor", "3", strPath);
     uint dwCompress = GetPrivateProfileInt("image", 
         "compression", 0, strPath);
 }

 [DllImport("kernel32.dll")]
 static extern bool WritePrivateProfileString(string lpAppName,
                                              string lpKeyName,
                                              string lpString, 
     string lpFileName);

 [DllImport("kernel32.dll")]
 static extern uint GetPrivateProfileInt(string lpAppName,
                                         string lpKeyName, 
     int nDefault, string lpFileName);
}

C:\Program Files\zvprt50>zvprtcfg

Syntax: zvprtcfg  printer  keyword=value [-silent]
	Or: zvprtcfg  -help
	Or: zvprtcfg  -examples
	Or: zvprtcfg   printer -show
	Or: zvprtcfg   printer -setdefault
	Or: zvprtcfg  -listprinters
Where:
printer: printer name.
	if no printer is specified, the most recently
	used printer name will be used.
silent: do not print out any message on screen
show: show the current parameters(keyword-value pairs) for the specified printer
examples: show usage examples
listprinters: show all installed printer instances
setdefault: set the specified printer as the default printer

Option Explicit
Private Type PROCESS_INFORMATION
         hProcess As Long
         hThread As Long
         dwProcessId As Long
         dwThreadId As Long
End Type

Private Type STARTUPINFO
         cb As Long
         lpReserved As String
         lpDesktop As String
         lpTitle As String
         dwX As Long
         dwY As Long
         dwXSize As Long
         dwYSize As Long
         dwXCountChars As Long
         dwYCountChars As Long
         dwFillAttribute As Long
         dwFlags As Long
         wShowWindow As Integer
         cbReserved2 As Integer
         lpReserved2 As Long
         hStdInput As Long
         hStdOutput As Long
         hStdError As Long
End Type

Private Declare Function CreateProcess Lib "kernel32" _
         Alias "CreateProcessA" _
         (ByVal lpApplicationName As String, _
         ByVal lpCommandLine As String, _
         lpProcessAttributes As Any, _
         lpThreadAttributes As Any, _
         ByVal bInheritHandles As Long, _
         ByVal dwCreationFlags As Long, _
         lpEnvironment As Any, _
         ByVal lpCurrentDriectory As String, _
         lpStartupInfo As STARTUPINFO, _
         lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function CloseHandle Lib "kernel32" _
         (ByVal hObject As Long) As Long

Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long


Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0
Private Const STANDARD_RIGHTS_READ As Long = &H20000
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or _
                                   KEY_QUERY_VALUE Or _
                                   KEY_ENUMERATE_SUB_KEYS Or _
                                   KEY_NOTIFY) And _
                                   (Not SYNCHRONIZE))

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
   Alias "RegOpenKeyExA" _
  (ByVal hKey As Long, _
   ByVal lpSubKey As String, _
   ByVal ulOptions As Long, _
   ByVal samDesired As Long, _
   phkResult As Long) As Long
  

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long
 

'Used CSIDL values.
'For the full list, search MSDN for "CSIDL Values"
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0
Const NORMAL_PRIORITY_CLASS = &H20

Private Const MAX_PATH = 260

Function DirExists(ByVal DName As String) As Boolean
Dim sDummy As String
On Error Resume Next

If Right(DName, 1) <> "\" Then DName = DName & "\"
sDummy = Dir$(DName & "*.*", vbDirectory)
DirExists = Not (sDummy = "")
End Function

'Retrieve a file's path
Function GetFilePath(FileName As String) As String
    Dim i As Long
    For i = Len(FileName) To 1 Step -1
        Select Case Mid$(FileName, i, 1)
            Case ":"
                GetFilePath = Left$(FileName, i)
                Exit For
            Case "\"
                GetFilePath = Left$(FileName, i - 1)
                Exit For
        End Select
    Next
End Function

'detect the zan image printer installation directory
Private Function GetZanInstallFolder() As String

Dim sPath As String
Dim szTmp As String * MAX_PATH
Dim lResult As Long
Dim hKey, dwSize As Long

szTmp = Space$(MAX_PATH)
dwSize = MAX_PATH

'uninstall entry
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50" _
      , 0&, KEY_READ, hKey) = ERROR_SUCCESS Then
      If RegQueryValueEx(hKey, "UninstallString", _
      0&, 0&, ByVal szTmp, dwSize) = ERROR_SUCCESS Then
      
      sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)

      sPath = GetFilePath(sPath)
      
      If DirExists(sPath) Then
      GetZanInstallFolder = sPath
      Exit Function
      End If
      
      End If
      
End If
     
'Assume \Program Files\zvprt50 folder:
lResult = SHGetFolderPath(0, _
                   CSIDL_PROGRAM_FILES, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
szTmp = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
If Right$(szTmp, 1) <> "\" Then
    szTmp = szTmp & "\"
 End If
 szTmp = szTmp & "zvprt50"
 GetZanInstallFolder = szTmp
End Function

'run application with given parameters
Private Sub util_CreateProcess(command_line As String)
        Dim pInfo As PROCESS_INFORMATION
        Dim sInfo As STARTUPINFO
        Dim sNull As String
        Dim lSuccess As Long
        Dim lRetValue As Long

        sInfo.cb = Len(sInfo)
        lSuccess = CreateProcess(sNull, _
                                 command_line, _
                                 ByVal 0&, _
                                 ByVal 0&, _
                                 1&, _
                                 NORMAL_PRIORITY_CLASS, _
                                 ByVal 0&, _
                                 sNull, _
                                 sInfo, _
                                 pInfo)

         
         lRetValue = CloseHandle(pInfo.hThread)
         lRetValue = CloseHandle(pInfo.hProcess)
End Sub

Public Sub Main()
Dim cmdline As String

 cmdline = GetZanInstallFolder()
 If Right$(cmdline, 1) <> "\" Then
    cmdline = cmdline & "\"
 End If

 cmdline = cmdline & _
 "zvprtcfg_win32 Zan Image Printer(bw) save.folder=c:\temp"
 util_CreateProcess cmdline
End Sub

uses
Windows, Messages, SysUtils, ShlObj,
ShellAPI, SHFolder, Registry;

procedure util_CreateProcess(ProgramName:String);
procedure GetZanInstallFolder(var APath: String);
procedure zvprtvfg_test();
implementation

//run application with given parameters
procedure util_CreateProcess(ProgramName:String);
var
  StartInfo : TStartupInfo;
  ProcInfo : TProcessInformation;
  CreateOK : Boolean;
begin
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateOK := CreateProcess(nil,PChar(ProgramName),nil,nil,False,
              CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
              nil, nil, StartInfo, ProcInfo);
  if CreateOK then
    begin
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
    end
end;


//detect the zan image printer installation directory
procedure GetZanInstallFolder(var APath: String);
var
  hkeyStartup: HKEY;
  dwSize: DWORD;
begin
  dwSize := MAX_PATH;
  SetLength(APath, MAX_PATH);

  //uninstall entry
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
   '\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50',
   0,
   KEY_READ,
   hkeyStartup) = ERROR_SUCCESS then
   begin

   if RegQueryValueEx(hkeyStartup,
                     'UninstallString', nil, nil,
                      PBYTE(Pchar(APath)),
                      @dwSize) = ERROR_SUCCESS then
   begin
      APath := String (PChar(APath));
      APath := ExtractFilePath(APath);
   end;

   //Close the Key, we won't be needing it anymore
   RegCloseKey(hkeyStartup);

   if DirectoryExists(APath) then Exit;
  end;

  //Assume \Program Files\zvprt50 folder:
  SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0, 0,
                  PChar(APath));

  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\')
  then APath := APath + '\';

  APath := APath + 'zvprt50';
end;

procedure zvprtvfg_test();
var
szCmdLine: String;
begin
GetZanInstallFolder(szCmdLine);

if (szCmdLine[Length(szCmdLine)] <> '\')
then szCmdLine := szCmdLine + '\';

szCmdLine := szCmdLine +
'zvprtcfg_win32 Zan Image Printer(bw) save.folder=c:\temp';

util_CreateProcess(szCmdLine);
end;

#include <windows.h>
#include <winspool.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <shellapi.h>

#pragma comment(lib, "shlwapi.lib")

//check if folder exists
BOOL IsFolderExists(char *lpDirectoryName)
{
    if(strlen(lpDirectoryName) == 0)
    {
      return FALSE;
    }

    DWORD dwFileAttr = GetFileAttributes(lpDirectoryName);

    if((dwFileAttr != 0xFFFFFFFF) &&
     (dwFileAttr & FILE_ATTRIBUTE_DIRECTORY))
     {
      return TRUE;
     }
    else
    {
      return FALSE;
    }
}

//detect the zan image printer installation directory
 void GetZanInstallFolder(char *installfolder)
{
   /*first, search the registry uninstall key*/
   HKEY hkeyStartup;
   
    //uninstall entry
   if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,
   "\\Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50",
   0,          
   KEY_READ,  
   &hkeyStartup) == ERROR_SUCCESS)
  {
      DWORD dwSize = MAX_PATH;

      if(RegQueryValueEx(hkeyStartup, 
         "UninstallString", 
         NULL,
         NULL,
         (LPBYTE)installfolder,
         &dwSize) == ERROR_SUCCESS)
         {
          PathRemoveFileSpec(installfolder);
          PathAddBackslash(installfolder);
         }

      /*Close the Key, we won't be needing it anymore*/
      RegCloseKey(hkeyStartup);

      if(IsFolderExists(installfolder))
      {
       return;
      }
   }

    //Assume \Program Files\zvprt50 folder:
    SHGetFolderPath(NULL, CSIDL_PROGRAM_FILES, NULL, 0, installfolder);
    PathAddBackslash(installfolder);

    strcat(installfolder,"zvprt50");
}


BOOL util_CreateProcess(char* command_line)
{
PROCESS_INFORMATION pInfo;
STARTUPINFO sInfo;
 
ZeroMemory(&sInfo, sizeof(STARTUPINFO));
sInfo.cb = sizeof(STARTUPINFO);
sInfo.lpReserved = NULL;
sInfo.lpReserved2 = NULL;
sInfo.cbReserved2 = 0;
sInfo.lpDesktop = NULL;
sInfo.lpTitle = NULL;
sInfo.dwFlags = 0;
sInfo.dwX = 0;
sInfo.dwY = 0;
sInfo.dwFillAttribute = 0;
sInfo.wShowWindow = SW_SHOW;

BOOL bret = CreateProcess(NULL, command_line, NULL, NULL, 
FALSE, 0, NULL, NULL, &sInfo, &pInfo);

CloseHandle(pInfo.hProcess);
CloseHandle(pInfo.hThread);

return bret;
}

char szCmdLine[MAX_PATH];

GetZanInstallFolder(szCmdLine);
PathAddBackslash(szCmdLine);

strcat(szCmdLine,"zvprtcfg_win32 Zan Image Printer(bw) save.folder=c:\\temp");

util_CreateProcess(szCmdLine);

using namespace System;
using namespace Microsoft::Win32;
using namespace System::IO;
using namespace System::Diagnostics;

//detect the zan image printer installation directory
 String^ GetZanInstallFolder(void)
{
  String^ installfolder = String::Empty;
  RegistryKey ^ rkTest;

  //first, search the registry uninstall key:
  rkTest = Registry::LocalMachine->OpenSubKey(
  L"\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");
  if(rkTest)
  {
   installfolder = rkTest->GetValue(L"UninstallString")->ToString();
   rkTest->Close();

   if(installfolder->Length)
   {
    installfolder = Path::GetDirectoryName(installfolder);

  DirectoryInfo^ installdir1=gcnew DirectoryInfo(installfolder);
  if(installdir1->Exists)
  {
   return installfolder;
  }
 }
}

 //Assume \Program Files\zvprt50 folder:
 installfolder = Environment::GetFolderPath
 (Environment::SpecialFolder::ProgramFiles);

 if(!installfolder->EndsWith(L"\\")) 
 installfolder = String::Concat(installfolder, L"\\");

 installfolder=String::Concat(installfolder, L"zvprt50");

 return installfolder;
}

 String^ apppath;

 apppath = GetZanInstallFolder();

 if(!apppath->EndsWith(L"\\")) 
  apppath = String::Concat(apppath, L"\\");

 apppath=String::Concat(apppath, L"zvprtcfg_win32");

 Process::Start(apppath, 
  L" Zan Image Printer(bw) save.folder=c:\\temp");

Imports System
Imports Microsoft.Win32
Imports System.IO
Imports System.Diagnostics

Module Module1
    'detect the zan image printer installation directory
    Function GetZanInstallFolder() As String
        Dim installfolder As String
        Dim rkTest As RegistryKey

        'first, search the registry uninstall key:
        rkTest = Registry.LocalMachine.OpenSubKey _
 ("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50")

        If Not (rkTest Is Nothing) Then
            installfolder = rkTest.GetValue _
              ("UninstallString").ToString()
            rkTest.Close()
            If (installfolder.Length > 0) Then
                installfolder = Path.GetDirectoryName(installfolder)
                Dim installdir1 As DirectoryInfo = _
                   New DirectoryInfo(installfolder)

                If installdir1.Exists Then
                    Return installfolder
                End If
            End If
        End If
        'Assume \Program Files\zvprt50 folder:
        installfolder = Environment.GetFolderPath _
(Environment.SpecialFolder.ProgramFiles)

        If Not installfolder.EndsWith("\") Then
            installfolder = String.Concat(installfolder, "\")
        End If

        installfolder = String.Concat(installfolder, "zvprt50")
        Return installfolder
    End Function

    Sub Main()
        Dim apppath As String

        apppath = GetZanInstallFolder()

        If Not apppath.EndsWith("\") Then
            apppath = String.Concat(apppath, "\")
        End If

        apppath = String.Concat(apppath, "zvprtcfg_win32")
        Process.Start(apppath, _
       " Zan Image Printer(bw) save.folder=c:\temp")
    End Sub
End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Diagnostics;
using Microsoft.Win32;
using System.IO;
class Program
{
  //detect the zan image printer installation directory
  static string GetZanInstallFolder()
  {
     string installfolder = string.Empty;
      RegistryKey rkTest;

     //first, search the registry uninstall key:
     rkTest = Registry.LocalMachine.OpenSubKey(
     "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");

     if (rkTest != null)
     {
          installfolder = rkTest.GetValue("UninstallString").ToString();
          rkTest.Close();

          if(installfolder.Length > 0)
          {
            installfolder = Path.GetDirectoryName(installfolder);

            DirectoryInfo installdir1=new DirectoryInfo(installfolder);
            if (installdir1.Exists)
            {
              return installfolder;
            }
          }
      }

      //Assume \Program Files\zvprt50 folder:
      installfolder = Environment.GetFolderPath
          (Environment.SpecialFolder.ProgramFiles);

      if (!installfolder.EndsWith("\\")) 
          installfolder = String.Concat(installfolder, "\\");

      installfolder=String.Concat(installfolder,"zvprt50");

      return installfolder;
  }

  static void Main(string[] args)
  {
      string apppath;

      apppath = GetZanInstallFolder();

      if (!apppath.EndsWith("\\")) 
          apppath = String.Concat(apppath, "\\");

      apppath = String.Concat(apppath, "zvprtcfg_win32");

      Process.Start(apppath, 
          " Zan Image Printer(bw) save.folder=c:\\temp");
  }
}

  pDevMode=...
        dmDeviceName="Zan Image Printer(bw)"
       dmSpecVersion=0x0401
     dmDriverVersion=0x0500
              dmSize=220
       dmDriverExtra=592
            dmFields="orientation papersize copies defaultsource printquality
lor yresolution ttoption collate formname nup icmmethod icmintent dithertype"
       dmOrientation=2
         dmPaperSize=90
            dmCopies=1
     dmDefaultSource=15
      dmPrintQuality=300
             dmColor=2
       dmYResolution=300
          dmTTOption=2
           dmCollate=1
          dmFormName="12x11"
               dmNup=1
         dmICMMethod=1
         dmICMIntent=2
        dmDitherType=4294967295
           ...