频道分类
您的位置:网站首页 > 系统

delphi写的桌面图标管理代码

参加工作了就很少有时间去玩delphi了,这个适合初学者看看,大神勿喷工具delhpi7.0access数据库原则win下有…

类别:系统 标签: 作者:admin 日期:2019-10-18 13.09.59

Delphi开发桌面图标列表查看程序

Delphi开发桌面图标列表查看程序桌面图标太多的时候总是显示不开,但是在Windows里面查看很多文件的时候可以…

类别:系统 标签: 作者:admin 日期:2019-10-18 12.56.33

delphi在64位系统下读写注册表

delphi在64位系统下读写注册表分类:delphiHKEY_LOCAL_MACHINE写这个主键下的项,在64位系统下可能会重定向…

类别:系统 标签: 作者:admin 日期:2019-10-18 12.53.16

Delphi编程之桌面图标设置

Delphi编程之桌面图标设置用户的文件{59031a47-3f72-44a7-89c5-5595fe6b30ee}计算机{20D04FE0-3AEA-1069-A2…

类别:系统 标签: 作者:admin 日期:2019-10-18 12.49.12

Delphi编程之Win10桌面图标设置

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:系统 标签: 作者:admin 日期:2019-10-18 12.48.09

Delphi 取系统临时路径

{*****************************************************************过程名称:GetTempDirectory*功能描述…

类别:系统 标签: 作者:admin 日期:2019-10-18 12.46.33

Delphi ShellExecute调用系统命令关闭计算机

usesshellapi;ifApplication.MessageBox(System.Pchar('关闭计算机?'),'询问',1+32)=id_OKthenbeginShellEx…

类别:系统 标签: 作者:admin 日期:2019-10-18 12.23.33

Delphi 解析系统环境变量

functionExpandEnvironment(consts****Value:s****ing):s****ing;varchrResult:array[0..1023]ofChar;wrdRe…

类别:系统 标签: 作者:admin 日期:2019-10-16 00.34.53

delphi隐藏系统托盘tray图标

procedureHideAllTrace;varTBHWND:HWND;i,count:Integer;PID,PRC:THandle;Buff:PChar;Info:_TBBUTTON;R:Car…

类别:系统 标签: 作者:admin 日期:2019-10-16 00.28.31

Delphi IFileOperation拷贝复制文件带进度条

usesActiveX,ComObj,ShlObj,ShellApi;typeTFileSystemBindData=class(TInterfacedObject,IFileSystemBindDa…

类别:系统 标签: 作者:admin 日期:2019-10-14 00.33.38

Delphi 获取windows系统网卡MAC地址

usesNB30;functionGetMACAdress:TStringList;varNCB:PNCB;Adapter:PAdapterStatus;URetCode:PChar;RetCode:…

类别:系统 标签: 作者:admin 日期:2019-10-13 20.10.50

Delphi WinAPI: GetTickCount - 获取系统已启动的时间

//声明:GetTickCount:DWORD;{无参数;返回系统已启动的时间(毫秒)}//举例:vart:DWORD;begint:=GetTickCount;…

类别:系统 标签: 作者:admin 日期:2019-10-11 21.42.37

Delphi-操作剪贴板

使用剪切板[1]:AsText、SetTextBuf、GetTextBuf剪切板类TClipboard定义在Clipbrd单元,使用前先要usesClipbr…

类别:系统 标签: 作者:admin 日期:2019-10-10 21.47.25

Delphi 动态提升权限UAC

unitUnit1;interfaceusesWindows{....};typeTForm1=class(TForm)Label1:TLabel;Label2:TLabel;Label3:TLabe…

类别:系统 标签: 作者:admin 日期:2019-10-08 21.01.36

Delphi 设置系统启动文件夹自身开机自动运行

usesShlObj,ShellAPI,System.IniFiles,System.UITypes;functionGetAutoRunFilePath():String;varfileName,p…

类别:系统 标签: 作者:admin 日期:2019-10-08 12.10.13

Delphi 获取系统启动文件夹路径

usesShlObj,ShellAPI;functionGetAutoRunFilePath():S****ing;varfileName,pathStartUp:S****ing;path:arra…

类别:系统 标签: 作者:admin 日期:2019-10-08 10.58.12

Delphi 获取计算机名称3

functionGetComputerName:string;varbuffer:array[0..MAX_COMPUTERNAME_LENGTH+1]ofChar;Size:Cardinal;beg…

类别:系统 标签: 作者:admin 日期:2019-10-08 10.55.47

Delphi 获取系统串口列表

varTotalComNum:Integer=0;HaveOpenCom:string='0';USESRegistry;procedureGetComListFromReg();varreg:TRe…

类别:系统 标签: 作者:admin 日期:2019-10-05 15.59.40

Delphi 判断是否是系统管理员身份

usesWinapi.ShellAPI,Winapi.TlHelp32;varhShell32:HMODULE=0;var_IsUserAnAdmin:function():BOOL;stdcall=…

类别:系统 标签: 作者:admin 日期:2019-10-05 13.58.10

Delphi 动态加载删除字体

proceduresys_AddFont(fontFileName:string);beginAddFontResource(Pchar(fontFileName));SendMessage(Appl…

类别:系统 标签: 作者:admin 日期:2019-09-30 19.50.55