摘要：吴淑华
为了更有效地利用显示器的空间，多数程序员都有过这样的经验，即通过windows任务栏属性对话框，在“任务栏选项”页中将任务栏设置为“自动隐藏”，并且为了在需要任务栏时操作方便，选择任务栏“总在最前”。完成上述设置后，当程序员编辑文档或编写代码时，任务栏会自动隐藏，增加了显示器的可利用空间；而当程序员需要操作任务栏时，只需将鼠标移动到任务栏所在位置的显示器边缘上，这时任务栏就会自动出现。但......
摘要：当你的程序存取a驱动器时，可能会被drive not ready系统错误所中断，可以使用下面的函数来测试驱动器，以避免这种情况发生，代码如下：
function diskindrive(drive: char): boolean;
var
errormode: word;
begin
drive: = upcase(drive);
if not (drive in [a..z]) th......
利用系统图象列表假如你需要存取win95的系统图象列表,这里给出具体方法.第一个函数将系统图象列表的索引保存到一个特殊类型的文件中:
【程序编程相关:
DELPHI的中文版安装程序制作大揭密】 【推荐阅读:
CORBA技术及在Delphi中的实现】
function getfileicoindex(filename:string):integer; 【扩展信息:
如何把文件删除到回收站中】
var
ext: string;
shfileinfo: tshfileinfo;
begin
ext := filename;
shgetfileinfo(pchar(ext), 0, shfileinfo,
sizeof(shfileinfo), shgfi_smallicon or
shgfi_sysiconindex or shgfi_typename);
result:= shfileinfo.iicon;
end;
下面将系统图象列表连接到tlistview控件上.注意我们设置动态建立的图象列表的shareimages属性为真,这可以确保我们不试图释放windows系统拥有的图象.在窗体的oncreate事件处理程序中加上:
with yourlistview do
begin
...
下一页 摘要：-------------------delphi版的:--------------
program chat2001;
uses
windows,messages,sysutils;
{$r *.res}
const
crlf=#13#10;
exename:pchar=刷屏机器人 2001;
var
//----------------------
wclas......
