分类: Delphi语言
thumbnail

Delphi自带风格管理器TStyleManager

今天发现Delphi自带的VCL历程中有风格管理器。研究了下代码,惊喜发现几行代码就可以实现这个功能。记录一下。 第一步、代码如下: unit StyleManager; int……
thumbnail

Delphi10.3下自带系统托盘 TrayIcon的使用

(0)老式提示,随鼠标指针的提示文本, 这是老式的, 下面有新型的 TrayIcon1.Hint:='asdfad'; ( 1 )“气泡提示”的制作 第一步:在窗体中放置 TrayIcon 控件……
thumbnail

Delphi 禁止重复运行程序的方法

第一种方法,使用“过程调用” procedure Del; // 自定义过程 var Mutex: THandle; begin Mutex := CreateMutex(nil, True, PChar(Application.Title));……
thumbnail

MessageBox中显示变量及实现换行

前言 总结下今天使用messageBox过程中解决的一些问题,共勉。 messageBox格式使用请参考: delphi中Application.MessageBox函数用法详解 1、显示变量 直接上干……
thumbnail

delphi - 不使用 ExtractIconEx 从 EXE 中提取所有图标

我需要从 EXE 中提取所有图标并将它们保存为磁盘文件,但我无法使用最简单的解决方案( ExtractIconEx ),因为我需要以保留大尺寸图标的方式提取 ICO 文件,即……
thumbnail

Delphi里实现多线程下载文件并且显示进度到界面

开发的过程中遇到文件下载的过程,我们都是想到要放在线程里处理,那么线程里进行文件下载,进度怎么展示呢?这对于很多不经常使用线程的人来说是个疑问,尤其……
thumbnail

delphi 创建目录(文件夹)

创建目录(文件夹) 代码 调用 MkDir 创建目录 procedure TForm1.Button1Click(Sender: TObject); begin //创建目录 MkDir('D:\测试目录1'); //如果……
thumbnail

UrlDownloadFile线程下载文件带进度条

unit FileDownLoadThread; interface uses Classes, SysUtils, Windows, ActiveX, UrlMon; const S_ABORT = HRESULT($80004004); typ……
thumbnail

Delphi利用系统环境变量获取常用系统目录

// 譬如%WINDIR% 是表示系统目录的系统变量, 可以这样获取: var s: string; begin s : =GetEnvironmentVariable( ' WINDIR ' ); ShowMessage(s); { C:\WIND……
thumbnail

Delphi中把字符串存储成各种编码的txt文档

procedure SaveFile(const FileName:string; Source: string ; encoding:TEncoding); var sl: TStrings; memoStream: TFileStream; buff: Tbyte……
thumbnail

Delphi技巧集(各种功能)

Delphi技巧集(各种功能) [DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ……
thumbnail

delphi 去除html代码格式字符

delphi 去除html代码格式字符 uses Winapi.ActiveX,MSHTML; procedure TForm1.Button1Click(Sender: TObject); var doc2:IHTMLDocument2; doc:IHTM……
thumbnail

delphi一个简单的多线程例子

delphi一个简单的多线程例子 我的这个示例实为一个主线程,两个辅线程,辅线程是重新定义了两线程类,Tthread1和Tthread2,都是从Tthread继承而来。 关键是两……