分类: Delphi语言
Delphi自带风格管理器TStyleManager
今天发现Delphi自带的VCL历程中有风格管理器。研究了下代码,惊喜发现几行代码就可以实现这个功能。记录一下。
第一步、代码如下:
unit StyleManager;
int……
Delphi10.3下自带系统托盘 TrayIcon的使用
(0)老式提示,随鼠标指针的提示文本, 这是老式的, 下面有新型的
TrayIcon1.Hint:='asdfad';
( 1 )“气泡提示”的制作
第一步:在窗体中放置 TrayIcon 控件……
Delphi 禁止重复运行程序的方法
第一种方法,使用“过程调用”
procedure Del; // 自定义过程
var
Mutex: THandle;
begin
Mutex := CreateMutex(nil, True, PChar(Application.Title));……
MessageBox中显示变量及实现换行
前言
总结下今天使用messageBox过程中解决的一些问题,共勉。
messageBox格式使用请参考:
delphi中Application.MessageBox函数用法详解
1、显示变量
直接上干……
delphi - 不使用 ExtractIconEx 从 EXE 中提取所有图标
我需要从 EXE 中提取所有图标并将它们保存为磁盘文件,但我无法使用最简单的解决方案( ExtractIconEx ),因为我需要以保留大尺寸图标的方式提取 ICO 文件,即……
Delphi里实现多线程下载文件并且显示进度到界面
开发的过程中遇到文件下载的过程,我们都是想到要放在线程里处理,那么线程里进行文件下载,进度怎么展示呢?这对于很多不经常使用线程的人来说是个疑问,尤其……
delphi 创建目录(文件夹)
创建目录(文件夹)
代码
调用 MkDir 创建目录
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建目录
MkDir('D:\测试目录1');
//如果……
UrlDownloadFile线程下载文件带进度条
unit FileDownLoadThread;
interface
uses
Classes,
SysUtils,
Windows,
ActiveX,
UrlMon;
const
S_ABORT = HRESULT($80004004);
typ……
Delphi利用系统环境变量获取常用系统目录
// 譬如%WINDIR% 是表示系统目录的系统变量, 可以这样获取:
var s: string;
begin s : =GetEnvironmentVariable( ' WINDIR ' );
ShowMessage(s);
{ C:\WIND……
Delphi中把字符串存储成各种编码的txt文档
procedure SaveFile(const FileName:string; Source: string ;
encoding:TEncoding);
var
sl: TStrings;
memoStream: TFileStream;
buff: Tbyte……
Delphi技巧集(各种功能)
Delphi技巧集(各种功能)
[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
……
delphi 去除html代码格式字符
delphi 去除html代码格式字符
uses
Winapi.ActiveX,MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var
doc2:IHTMLDocument2;
doc:IHTM……
delphi一个简单的多线程例子
delphi一个简单的多线程例子
我的这个示例实为一个主线程,两个辅线程,辅线程是重新定义了两线程类,Tthread1和Tthread2,都是从Tthread继承而来。
关键是两……