2015年11月26日
TComponent与String的转换（得到控件的DFM格式的描述）
现看下面这两个方法，把一个TComponent做成String,再就是把String转成TComponent function ComponentToStringProc(Component: TComponent): string; var BinStream:TMemoryStream; Str Read More
posted @ 2015-11-26 20:50 findumars Views(540) Comments(0) Diggs(0)
Delphi调用安装驱动sys的单元
unit SysDriver;interfaceuses windows, winsvc; // jwawinsvc;Type TSysDriver = class(TObject) private HomeDir, DriverDir, DriverName, DEVICE_NAME_S... Read More
posted @ 2015-11-26 20:47 findumars Views(1683) Comments(0) Diggs(0)
Delphi获取系统服务描述信息
program Project1; {$APPTYPE CONSOLE} uses Windows, WinSvc; type SERVICE_DESCRIPTION = packed record lpDescription: PWChar; end; PSERVICE_DESCRIPTION = Read More
posted @ 2015-11-26 20:46 findumars Views(1002) Comments(0) Diggs(0)
Delphi利用Webbrowser登陆QQ群文档
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, IEBrowser, Mshtml;t... Read More
posted @ 2015-11-26 20:45 findumars Views(393) Comments(0) Diggs(0)
AdminCMD
program AdminCMD;{$APPTYPE CONSOLE}uses Windows, ShellApi, SysUtils;function RunAsAdmin(const iExeName, iParam: String): Boolean;var SEI: TShellEx... Read More
posted @ 2015-11-26 20:44 findumars Views(380) Comments(0) Diggs(0)