[办公应用] 三星SCX-4623FH打印机硒鼓加粉

三星SCX-4623FH打印机是一款集打印、复印、扫描、传真的多功能打印机，但三星的硒鼓是鼓粉一体的硒鼓，价格有点贵，使用一次就扔掉有点可惜，加点墨粉，自己动手，变费为宝，下面我们来看下他的硒鼓加粉过程，其实还是挺简单的。 工具/原料 三星SCX-4623FH...

正安一片瓦 2022-12-4 0 0

[编程极客] Delphi 系统托盘 TrayIcon

TTrayIcon 的主要属性: TrayIcon.Icon 指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application.Icon; 4、TrayIcon1.SetDefaultIcon; 这也是使用当前程序图标. TrayIcon.Ico...

正安一片瓦 2022-12-4 0 0

[编程极客] Delphi10.3下自带系统托盘 TrayIcon的使用

(0)老式提示（1）“气泡提示”的制作（2）动态图标（3）右键菜单(4)最小化和还原窗口[hr] (0)老式提示,随鼠标指针的提示文本, 这是老式的, 下面有新型的 TrayIcon1.Hint:='asdfad'; [hr] （ 1 ）“气泡提示”的制作 第一步：在窗体中放置 TrayIcon 控件（ ...

正安一片瓦 2022-12-4 0 0

[编程极客] delphi一个简单的多线程例子

我的这个示例实为一个主线程，两个辅线程，辅线程是重新定义了两线程类，Tthread1和Tthread2，都是从Tthread继承而来。 关键是两个辅线程的Execute事件重载了祖先类Tthread的Execute.实现了相应的功能。这两个线程的事件可同时执行，无需等待。 unit Unit1;...

正安一片瓦 2022-12-4 0 0

[编程极客] Delphi XE使用SQLite3

用Delphi开发小程序，之前使用过Access数据库，但是由于Access依赖于office，感觉有些不太方便，研究一下Delphi使用SQLite3。 SQLite是一款轻型的数据库，是遵守ACID的关系型数据库管理系统，它包含在一个相对小的C库中。 SQLite下载 官网下载页面 https:...

正安一片瓦 2022-12-4 0 0

[编程极客] DelphiADOQuery查询、插入、删除、修改

procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件'); ADOQuery.Open; //插入记录procedure TForm1.Button2Click(Sender: TObject); begin ADOQuery.C...

正安一片瓦 2022-12-4 0 0

[编程极客] Delphi FDQuery1查询，有无返回集

//查询，有返回集 FDQuery1.SQL.Text := 'SELECT * FROM DBTable WHERE id = :id'; FDQuery1.ParamByName('id').AsInteger := 1; FDQuery1.Open(); //执行SQL语句，无返回集 FDQuery1.SQL.Text := 'DELETE FROM DBTable WHERE id = :id'; FDQuery1.ParamByNa...

正安一片瓦 2022-12-4 0 0

[编程极客] Delphi中把字符串存储成各种编码的txt文档

SaveFile('C:\Temp\test_' + 'ascii_gbk.txt', ss, TEncoding.GetEncoding(936));//gbk SaveFile('C:\Temp\test_' + 'ascii_bg5.txt', ss, TEncoding.GetEncoding(950));//bg5 繁体 SaveFile('C:\Temp\test_' + 'utf8.txt', ss, TEncoding.UTF8); SaveFile('C...

正安一片瓦 2022-12-4 0 0

[编程极客] delphi 有什么方法去除html格式

正安一片瓦 2022-12-4 0 0

[编程极客] Delphi技巧集（各种功能）

[DELPHI]网络邻居复制文件　　uses shellapi;　　copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]取得WINDOWS目录　　uses shellapi;　　var windir:array[0..255] of char;　　getwindowsdirectory(windir,s...

正安一片瓦 2022-12-4 0 0