How to delete a printer from a command line or from Delphi
December 4, 2006
The command line for deleting a printer looks like this:
rundll32 printui.dll PrintUIEntry /dn /n\\machine\printer
I could not get that to work for my current situation. So I wrote a Delphi program that did the same.
You can down load it here.
PrinterManipulation.zip
You can use this next source code clip instead of downloading if you like. It assumes there are three buttons on the page and one listbox on a form named Form1. After creating those controls, select all of the pascal source text AFTER the “unit” line and paste this source code over top of it. After that, double click on all of the buttons, compile and you’ll have a peice of running code.
DELPHI:
-
// ****************************************************************************
-
// u_PrinterManipulation.pas 12/Dec/2006
-
// Written by Brian Layman
-
// Visit him at http://www.TheCodeCave.com
-
//
-
// A quick program to demonstrate the deletion of a printer.
-
//
-
// Usage: PrinterManipulation.exe Just click on the button 1 to populate and
-
// select a printer off of the list. Use button2 or button3 for two
-
// different deletion methods. Double clicking the list is the same as
-
// clicking button3.
-
//
-
// History:
-
// 04/Dec/2006 – BL – Created
-
//
-
// ****************************************************************************
-
interface
-
-
uses
-
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-
StdCtrls;
-
-
type
-
TForm1 = class(TForm)
-
Button1: TButton;
-
ListBox1: TListBox;
-
Button2: TButton;
-
Label1: TLabel;
-
Button3: TButton;
-
procedure Button1Click(Sender: TObject);
-
procedure Button2Click(Sender: TObject);
-
procedure ListBox1Click(Sender: TObject);
-
private
-
{ Private declarations }
-
public
-
{ Public declarations }
-
end; // TForm1
-
-
var
-
Form1: TForm1;
-
-
implementation
-
-
{$R *.DFM}
-
uses
-
WinSpool, Printers;
-
-
type
-
{******************************************************************************
-
TPrinterDevice
-
******************************************************************************}
-
TPrinterDevice = class
-
Driver, Device, Port: String;
-
constructor Create(ADriver, ADevice, APort: PChar);
-
function IsEqual(ADriver, ADevice, APort: PChar): Boolean;
-
end; // TPrinterDevice
-
-
{******************************************************************************
-
Create
-
******************************************************************************}
-
constructor TPrinterDevice.Create(ADriver, ADevice, APort: PChar);
-
begin // Create
-
inherited Create;
-
Driver := ADriver;
-
Device := ADevice;
-
Port := APort;
-
end; // Create
-
-
{******************************************************************************
-
IsEqual
-
******************************************************************************}
-
function TPrinterDevice.IsEqual(ADriver, ADevice, APort: PChar): Boolean;
-
begin // IsEqual
-
Result := (Device = ADevice) and ((Port = ”) or (Port = APort));
-
end; // IsEqual
-
-
{******************************************************************************
-
TForm1
-
******************************************************************************}
-
{******************************************************************************
-
Button1Click
-
******************************************************************************}
-
procedure TForm1.Button1Click(Sender: TObject);
-
var
-
indx: Integer;
-
begin // Button1Click
-
ListBox1.Clear;
-
for indx := 0 to (Printer.Printers.Count – 1)
-
do ListBox1.Items.Add(Printer.Printers[indx]);
-
end; // Button1Click
-
-
{******************************************************************************
-
ListBox1Click
-
******************************************************************************}
-
procedure TForm1.ListBox1Click(Sender: TObject);
-
var
-
hPrinter : Cardinal;
-
PrinterDef: PRINTER_DEFAULTS;
-
pPrinterName: PChar;
-
begin // ListBox1Click
-
pPrinterName := PChar(ListBox1.Items[ListBox1.Itemindex]);
-
FillChar(PrinterDef, sizeof(PrinterDef), #0);
-
PrinterDef.DesiredAccess := PRINTER_ALL_ACCESS;
-
-
if (OpenPrinter(pPrinterName, hPrinter, @PrinterDef))
-
then begin
-
if DeletePrinter(hPrinter)
-
then ShowMessage(‘Deletion Succcesful’);
-
ClosePrinter(hPrinter);
-
end
-
else ShowMessage(‘Could not open’);
-
end; // ListBox1Click
-
-
{******************************************************************************
-
Button2Click
-
******************************************************************************}
-
procedure TForm1.Button2Click(Sender: TObject);
-
var
-
ADevice: PChar;
-
PrinterHandle: THandle;
-
begin // Button2Click
-
with TPrinterDevice(Printer.Printers.Objects[ListBox1.ItemIndex])
-
do begin
-
GetMem(ADevice, Length(Device));
-
StrCopy(ADevice, PChar(Device));
-
end;
-
OpenPrinter(ADevice, PrinterHandle, nil);
-
if DeletePrinter(PrinterHandle) then ShowMessage(‘Deletion Succcesful’);
-
ClosePrinter(PrinterHandle);
-
FreeMem(ADevice);
-
end; // Button2Click
-
-
end.
Comments
Got something to say?
-
Subscribe
-
Recent Posts
- Brian Layman’s Weekly Twitter Update for 2010-03-14
- Brian Layman’s Weekly Twitter Update for 2010-03-07
- Brian Layman’s Weekly Twitter Update for 2010-02-28
- Brian Layman’s Weekly Twitter Update for 2010-02-21
- How to: Find files edited in the last day
- Brian Layman’s Weekly Twitter Update for 2010-02-14
- Brian Layman’s Weekly Twitter Update for 2010-02-07
- Brian Layman’s Weekly Twitter Update for 2010-01-31
- Brian Layman’s Weekly Twitter Update for 2010-01-24
- Brian Layman’s Weekly Twitter Update for 2010-01-17
-
Categories
-
Archives
- March 2010
- February 2010
- January 2010
- December 2009
- November 2009
- October 2009
- September 2009
- August 2009
- July 2009
- June 2009
- May 2009
- April 2009
- March 2009
- February 2009
- January 2009
- December 2008
- November 2008
- August 2008
- July 2008
- June 2008
- May 2008
- March 2008
- February 2008
- January 2008
- November 2007
- October 2007
- August 2007
- July 2007
- June 2007
- May 2007
- April 2007
- March 2007
- February 2007
- January 2007
- December 2006
- November 2006
- October 2006
- September 2006
- August 2006
- July 2006
- June 2006
- May 2006
- April 2006
- March 2006
- February 2006
-
Links
- (Mad)Crab Volleyball - A game I hacked for a friend of mine
- 404 by Count Null - A German site with decent information about WordPress and Themes
- Aaron Brazell – Technosailor - Technology, blogging, Web 2.0 and Entrepreneurship
- Alex King - A prominent WordPress Developer
- Andy Skelton (skeltoac) - Automattic Code wrangler
- Balloon Headed Boy - A fun kids game
- Christian Music Fan - A site for conversations on Christan music.
- Cindy’s Digital Ramble - Winner of the First-Blog-I-Wandered-Into-That-Has-Me-In-Their-Blogroll unannounced contest.
- Computer Guru - An AVID WP-Hacker
- ConTEXT is a very powerful editor with syntax highlighting for most kinds of source code. It’s written in Delphi, of course! Finally, a worthy Notepad replacement,- Craig Hartel - The Nuclear Moose is no longer a Hacker but still has proment sites…
- David Chait - WP-Hacker and enthusiast
- Donncha O’Caoimh - Lead Developer of WordPress.com
- Doug Stewart - A very bright WP-Hacker with a FUN site to read
- Dougal’s Geek Ramblings - Dougal’s, a WP-Hacker, Geek Ramblings
- Handy Solo - Support Forum Guru
- Hapland 1 - Can you click and solve this page? I did..
- Hapland 2 - Ah, but can you open this portal? It’s harder!
- Hapland 3 - The final chapter
- Iggy the Biker - Because you’re never too old to ride…
- Installing WordPress on Windows - A description of how to install WordPress locally
- io_error - IRC Chat, Liberty, WordPress and the American way…
- Justin - Justin is a WP-Hacker
- Knitting Loom Central - A website for free knitting patterns
- My Wife’s Knitting Site- libertus - Paul Mitchel has been liberating WordPress at his site since 2004…
- Lloyd D Budd - An active Automattic man bringing a Fools Wisdom to WP
- MakeZine’s blog - Go there! Words can’t explain the engineering bliss!
- Mark Jaquith - Freelance WP-Hacker who helps make WP what it is
- Matt Mullenweg - Matt is one of the creators of WP and put the Matt WordPress’s AutoMattic
- This IE shell utility turns IE into a browser that tops all competition in many ways including allowing Delphi built extensions.- Michael / miklb - A VERY active WP Support forum guy
- Michael Adams-mdawaffe - CalTech based Automattic Dude
- Michel Valdrighi - Developer of WP’s predicessor: B2
- Mike Little - Co-Founded WordPress with Matt Mullenweg.
- My Infocom Games - This is how I play my infocom games while on the road
- Owen Winkler - A down to earth WP-Hacker and all around good guy.
- Peter Westwood (Westi) - WP Hacker that helps keep WordPress on Trac
- Planet Sean - Technology Goodness at its best!!!!
- Podz - A VERY active WP Support forum guy
- Purls Of Hope - A charity site for Hurricane Katrina victims
- Rhett And LinKast Live - I help out with the Rhett and LinKast Live every week. Good Clean fun! Thursdays at 9pm
- Rob Miller - Rob Miller’s blog of helpful hints and plug ins…
- Robert Deaton - A WP-Hacker with strong coding skills and even stronger opinions ;)
- Roy Schevstowitz - WPHacker – Smart guy, Runs a Heavily hacked WP 1.2!!! site safely.
- Ryan Boren - Ryan is one of the Automattics. Matt’s #1 I should think.
- spencerp - Good guy with a lot of WP-Hacker suggestions
- Submitting Bug Reports & Feature Requests - Describes how to tell the WP developers about a bug or improvement
- Submitting Patches with Your Code Changes - The best way to ensure your request is approved, is to submit the code changes.
- The 298 Sand Bandits - A page for the wives of my bro-inlaw’s unit
- The Bored Again Christian - Bored with Christian music? Here’s a podcast with some unique sounds…
- The WildWest Forums - A VBulletin Forum for the WildWest mod
- The WildWest RtCW Mod - Support for The WildWest mod
- Viper007Bond - A WP-Hacker – I admire his ingenuity and little utilities
- William Lehman’s Decloned - Cloneliness is NOT next go Godliness!
- Kim Henkel’s ZTree program allows you to do so many file management tasks simply not possible in Explorer that Bill Gates decided it was way to helpful to include in WindowsXP.
-
Meta