摘要：
//得到本机或者网络上共享打印机的状态和打印任务//author:ginsonic//zdcnow download from E-Euse winspool;function PrinterStatusText(Status: Integer): String;begincase Status of 0: Result := 'Waiting'; JOB_STATUS_PAUSED: Result := 'Paused'; JOB_STATUS_ERROR: Result := 'Error'; JOB_STATUS_DELETING: Res 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, WinSpool, StdCtrls; varpi2:PRINTER_INFO_2;pno:PRINTER_NOTIFY_OPTIONS;pinfo:PPrinterNotifyInfo;//pinty:pPrinterNotifyOptionsType;hResult:THandle;pdwChange:DWORD;Result:LongBool;bo:boolean;i:integer;pn:a 阅读全文
摘要：
function IsJpegFile(FileName: string): Boolean;constRightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);varBuf: array[0..3] of Byte;beginFillChar(Buf, 4, 0);with TFileStream.Create(FileName, 0) do begin Position := 0; ReadBuffer(Buf[0], 2); Position := Size-2; ReadBuffer(Buf[2], 2); Free;end;Result : 阅读全文
摘要：
运行Delphi Distille后按Ctrl+Alt+L在菜单上会多出Secret stuff的TabSheet,选择需要破解的Delphi版本后点OK按钮退出. 阅读全文
摘要：
大家检查下安装目录 lib下的SysConst.dcu文件，大小如果为17KB，就是被感染了。SysConst.dcu正确大小应该为12KB不到点点。lib/debug目录下有SysConst.dcu，替换回来就可以恢复正常！ 阅读全文
摘要：
一般XML的编码格式设置成UTF8比较通用，下面演示使用UTF8编码方式存储和处理包含中文的XML字符串（文件）。1.设置启用内置的widestring支持NativeXml内部使用ANSI string和UTF8编码的string两种字符串类型。如果要让NativeXml能够解析widestring字符串的话，直接将TNativeXml的Utf8Encoded属性设置为True。如下：FXmlDoc:= TNativeXml.Create;FXmlDoc.Utf8Encoded:= True;这样NativeXml内部会自动对Widestring和utf8做转换。此处需要注意的是，如果执行F 阅读全文
摘要：
解压到目录：with CreateInArchive('Formats\zip.dll') dobegin OpenFile('c:\test.zip'); ExtractTo('c:\test');end;获取文件列表:with CreateInArchive('Formats\7z.dll') dobegin OpenFile('c:\test.7z'); for i := 0 to NumberOfItems - 1 do if not ItemIsFolder[i] then Writeln(ItemPat 阅读全文
摘要：
uses winsvc;function InstallService(ServiceName, DisplayName, FileName: string): boolean;varSCManager,Service: THandle;Args: pchar;beginResult := False;SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);if SCManager = 0 then Exit;try Service := CreateService(SCManager, //句柄 PChar(ServiceNam 阅读全文
摘要：
//删除目录： function DelDirectory(const Source:string): boolean; var fo: TSHFILEOPSTRUCT; begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(source+#0); pTo := #0#0; fFlags := FOF_NOCONFIRMATION+FOF_SILENT; end; Result := (SHFileOperation(fo) = 0); end;//复制目 阅读全文
摘要：
function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量的字符形式 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 Format('x=%d', [12]); //'x=12' //最普通 Format('x 阅读全文