RSS|Ͷ
λãվҳ > ϵͳ

DelphiʹXmlHttpȡʱ

usesComObj,DateUtils;procedureTForm1.Button1Click(Sender:TObject);varXmlHttp:Variant;datetxt:String;DateLst:TStringList;mon:String;timeGMT,GetNetTime:TDateTime;beginXmlHttp:=CreateOleObject('Microsoft
ϵͳ ǩ ߣadmin ڣ2018-04-06 13.46.12

DelphiOcxĶ̬ע᷽

1useswindows;typeTDllRegisterServer=function:HResult;stdcall;functionRegisterOCX(FileName:string):Boolean;varOCXHand:THandle;RegFunc:TDllRegisterServer;beginOCXHand:=LoadLibrary(PChar(FileName));R
ϵͳ ǩ ߣadmin ڣ2018-04-06 13.34.33

DelphiͨCOMʵָֽ

ǰҲSystemParametersInfoAPIֽģ࣬Ҳ֪ĴˣûȥCSDNӺ󣬴󳹴~~XP£SystemParametersInfoֻ֧BMPʽͼƬʽĻͻ(ҡ
ϵͳ ǩ ߣadmin ڣ2018-04-06 11.44.40

delphi ʾ CreateComObject(CLSID_TaskbarList) as ITaskbarList4

unitUnit9;interfaceusesSystem.Classes,System.SysUtils,Vcl.Controls,Vcl.Forms,Vcl.StdCtrls,Vcl.ExtCtrls,ShlObj;//ShellAPI,ObjectArray,PropSys,ExtCtrls,ImgList,DwmApi;typeTForm9=class(TForm)btnProgressb
ϵͳ ǩ ߣadmin ڣ2018-03-05 12.52.33

DELPHI Ӵʾ

CreateParamsprocedureCreateParams(varParams:TCreateParams);override;procedureTForm2.CreateParams(varParams:TCreateParams);begininherited;Params.WndParent:=0;end;...
ϵͳ ǩ ߣadmin ڣ2018-03-05 12.46.35

Delphi xeWindows7µtaskbarܵʹ

Windows7ʽѾ˺ܾ.MSDNʽWindows7Ѿܾ.Windows7TaskBarƯ.Ҳкܶ๦.IEصʱԿ,ԵͼȵЧ.Delphi2010Ҳܾ,Delphi2010ų֧Wi
ϵͳ ǩ ߣadmin ڣ2018-03-05 12.34.20

delphi ϵͳ ״̬ʾ

typeITaskbarList=interface(IUnknown)['****56FDF342-FD6D-11D0-958A-006097C9A090****']functionHrInit:HRESULT;s****call;functionAddTab(hwnd:HWND):HRESULT;s****call;functionDeleteTab(hwnd:HWND):HR
ϵͳ ǩ ߣadmin ڣ2018-03-05 12.03.55

delphi ȡcpuռʱ

{uCpuUsageunitdemoapplication.(c)JanisElsts,http://w-shadow.com/RequiresmadKernellibrary(http://www.madshi.net/).DisplaysalistofprocessesalongwiththeirCPUusage.}unituMain;interfaceusesWindows,Messages
ϵͳ ǩ ߣadmin ڣ2018-02-11 13.13.08

delphi ޿ٵdos

procedureCaptureConsoleOutput(constACommand,AParameters:String;AMemo:TMemo);constCReadBuffer=2400;varsaSecurity:TSecurityAttributes;hRead:THandle;hWrite:THandle;suiStartup:TStartupInfo;piProcess:TProc
ϵͳ ǩ ߣadmin ڣ2018-02-03 00.17.20

delphiжϳ30ûм̺궯ʾ

Ϊϸdelphiжϳ30ûм̺궯,timer1000ms)IJʾ30ļʵ£ȤѿԲο¹Ϊԭ룺(timer1000ms)IJʾ30ġ
ϵͳ ǩ ߣadmin ڣ2018-02-02 23.50.28

DelphiȡMacַ

//ֵAServerNameMACַ//AServerNameĸʽΪ\\ServerName//ServerNameΪʱرMACַ//MACַXX-XX-XX-XX-XX-XXĸʽ//functionGetMacAddress2(constAServerName:string
ϵͳ ǩ ߣadmin ڣ2018-02-02 18.25.12

Delphi ʵжWindowsӦó360ܼ-жس

ժҪҪʵжس򲢵ȴжسнķǵжسѶҲ󣬵ҪȴжسִϣЩԽˣDz뵽360?û360Ҳܣ⡭
ϵͳ ǩ ߣadmin ڣ2018-02-02 18.22.31

delphi DOS Nbtstat ý

functionGetNbtstat(IPstr:string):string;varhReadPipe,hWritePipe:THandle;si:STARTUPINFO;lsa:SECURITY_ATTRIBUTES;pi:PROCESS_INFORMATION;mDosScreen:String;cchReadBuffer:DWORD;ph:PansiChar;fname:PChar;i,j
ϵͳ ǩ ߣadmin ڣ2018-02-01 14.53.44

delphi ޷cmd nbtstat취

C:\\Windows\\system32\\nbtstat.exeڳеҲġ64λϵͳIJԭ򣬰ijɡcmd/cC:\\Windows\\sysnative\\nbtstat.exe-a192.168.44.1Ϳˣsysnativeʲô˼ϲ顣㡭
ϵͳ ǩ ߣadmin ڣ2018-02-01 14.48.44

delphi IPȡMAC

unitUnit_Lan;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,RegularExpressions,ShellAPI,WinSock
ϵͳ ǩ ߣadmin ڣ2018-01-31 17.51.09

delphi ȡIP

unitUnit_Lan;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,RegularExpressions,ShellAPI,WinSock
ϵͳ ǩ ߣadmin ڣ2018-01-31 17.50.12

DelphiʵֻȡԴ·ԼIEַб

ҪʵDelphiλȡԴ򿪵·ԼIE򿪵ĵַбĹܣҪʹIShellWindowsIWebBrowser2ӿڣ£unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Class
ϵͳ ǩ ߣadmin ڣ2018-01-30 14.54.52

DelphiʵֵWindowsϵͳҼ˵

ʹDelphi̵ʱһļҼ˵ҪϵͳԴҼ˵֮ǰͼʵܣռĽԭӣhttp://www.cnblogs.com
ϵͳ ǩ ߣadmin ڣ2018-01-30 14.37.20

delphi GetDeskTopDir ȡ·

//delphiGetDeskTopDirȡ·functionGetDeskTopDir:string;varPIDL:PItemIDList;Path:array[0..MAX_PATH]ofChar;beginSHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);SHGetPathFromIDList(PIDL,
ϵͳ ǩ ߣadmin ڣ2018-01-30 10.31.41

Delphi GetModuleFileName÷(ԻȡĿ··ҵĵ·)

functionGetModuleFileName(Module:HMODULE;Buffer:PChar;BufLen:Integer):Integer;Moduleģľģ飬ļDZġBufferһļơBufLenڻֽGetModuleFileName
ϵͳ ǩ ߣadmin ڣ2018-01-30 10.23.22