天行健,君子以自强不息;地势坤,君子以厚德载物。


预览模式: 普通 | 列表
    从前我也是用SystemParametersInfo这API来改桌面壁纸的,问题多多,也不知道哪错了,就没深究下去。看了CSDN的帖子后,大彻大悟~~
        在XP下,SystemParametersInfo只支持BMP格式的图片,如果用其他格式的话就会黑屏?(我记得当年我就是这情况 现在懒得测试了) 把这API的调用方法扔出来:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 1, pointer(pchar(‘c:\a.bmp’)), 0);
       因为这API函数的局限性

查看更多...

Tags: Delphi COM对象 桌面 SystemParametersInfo BMP API 壁纸

分类:Delphi技巧 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 247

Delphi2007下CIS的clHttp使用

Delphi组件Clever Suite Internet是一款优秀的网络组件,唯一让我感觉不足的是ClHttp竟然使用了断言,当程序遇到问题的时候就会弹出一个对话框,并显示问题是出在了那个单元里。好了,言归正传,发一个Delphi2007下使用ClHttp的例程。



procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi2007 Clever Suite Internet ClHttp 断言

分类:Delphi技巧 | 固定链接 | 评论: 3 | 引用: 0 | 查看次数: 620

Delphi下7zip组件的使用

今天,闲着无聊就随手在源码库里拿出一个组件来看一看了,发现有一个从内存中加载7zip的dll来实现解压缩的组件,于是看了看Demo,结果发现只有压缩的例子,却没有解压的代码,于是就加上了解压的代码。



procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi 7zip 组件

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 571

SQL字符替换语句

替换“详细地址”中含有 “桂王桥西街66号”的字符为“桂王桥西街七家巷2号”

update aipu_main set 详细地址=REPLACE(详细地址,'桂王桥西街66号','桂王桥西街七家巷2号') where 详细地址 like '%桂王桥西街66号%'

查看更多...

分类:数据库技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 99

SQL查询语句精华使用简要

一、 简单查询

  简单的Transact-SQL查询只包括选择列表、FROM子句和Where子句。它们分别说明所查询列、查询的表或视图、以及搜索条件等。
  例如,下面的语句查询testtable表中姓名为"张三"的nickname字段和email字段。

查看更多...

分类:数据库技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 130

SQL字符替换语句

替换“详细地址”中含有 “桂王桥西街66号”的字符为“桂王桥西街七家巷2号”

update aipu_main set 详细地址=REPLACE(详细地址,'桂王桥西街66号','桂王桥西街七家巷2号') where 详细地址 like '%桂王桥西街66号%'

查看更多...

分类:数据库技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 60

SQL Union和SQL Union All用法

SQL Union
程序代码

UNION 指令的目的是将两个 SQL 语句的结果合并起来。从这个角度来看, UNION 跟 JOIN 有些许类似,因为这两个指令都可以由多个表格中撷取资料。 UNION 的一个限制是两个 SQL 语句所产生的栏位需要是同样的资料种类。另外,当我们用 UNION这个指令时,我们只会看到不同的资料值 (类似 Select DISTINCT)。 union只是将两个结果联结起来一起显示,并不是联结两个表………… UNION 的语法如下: [SQL 语句 1]
UNION

查看更多...

Tags: SQL union

分类:数据库技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 109


Create TRIGGER [T] ON [dbo].[ARR]
after Insert
AS

查看更多...

分类:数据库技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 122

Delphi下ListView加载百万数据



var
  Form1: TForm1;
  FileNamestr: string;

查看更多...

Tags: Delphi ListView 百万数据

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 852

Delphi使用XmlHttp获取时间



uses ComObj, DateUtils;

procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi xmlhttp 时间

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 793