|
ｿｽ@ｿｽｿｽｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽvｿｽｿｽｿｽｿｽｿｽ^ｿｽ[
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽKｿｽIｿｽ` 2009/07/08(ｿｽｿｽ) 15:41:18
Delphi 2007
Windows Vista SP1
ｿｽﾌ環具ｿｽｿｽｿｽ
ｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽvｿｽｿｽｿｽｿｽｿｽ^ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾊ吉 2009/07/09(ｿｽｿｽ) 09:24:15
ｿｽｿｽｿｽｿｽﾅでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAXPｿｽﾅゑｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽB
Vistaｿｽﾂ具ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで。ｿｽBｿｽB
procedure ChangeDefaultPrinter;
var
DevMode: THandle;
Device,Driver,Port: array[0..79] of Char;
s: String;
begin
Printer.PrinterIndex := 0; //ｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽ^ｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽX(Printer.PrintersｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽX)
Printer.GetPrinter(Device,Driver,Port,DevMode);
s := StrPas(Device) + ',' + StrPas(Driver) + ',' + StrPas(Port);
WriteProfileString('windows','device',PChar(s));
SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,Longint(PChar('windows')));
end;
usesｿｽｿｽPrintersｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Delphi2009
ｿｽKｿｽIｿｽ` 2009/07/09(ｿｽｿｽ) 13:39:02
ｿｽｿｽｿｽﾊ吉ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽVistaｿｽﾂ具ｿｽｿｽﾅゑｿｽﾏ更ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
