谁知道如何调用API删除文件,关闭计算机,建立目录,调用屏幕保护程序等等。
解决方案 »
- Delphi XE2 使用过程中的疑问?望高手指点。
- 在delphi中如何快捷复制一个窗口(包括窗体里的所有组件及相应程序)
- 传说中MD5碰撞的源代码
- 怎样把dbgrid中得数据导入报表里
- 简单财务系统,数据表的设计问题!资产负债表,损益表,现金流量表.
- 关于FASTREPORT的若干问题
- 在线等:请问一条简单的sql条件删除语句?
- 有没有C#和delphi都懂的高手啊,谁呢改写一段c#代码为delphi
- 如何让自己在CSDN上快速并健康地成长?---------------------------请大家都来谈谈---------------
- 谁能告诉我哪里可免费下载SQL6.5以上的版本?
- 如何将一个数字Format成“02”,“08”的格式?
- 问一个数值类型转换问题(procedure与int)
关闭windows
api函数
bool exitwindowsex(
uint uflags,
dword dwreserved
);
其中参数uflags的取值及其含义如下:
ewx_force 在紧急情况下强制关机
ewx_logoff 以其他用户身份登陆
ewx_poweroff 关闭系统并关闭电源
ewx_reboot 重新启动
ewx_hutdown 安全地关机
参数dwreserved的取值多为0
只能在win9x下运行
function delFiles(const Source: string): boolean; //删除文件;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), #0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0#0);
pTo := #0#0;
fFlags :=FOF_NOCONFIRMATION+FOF_ALLOWUNDO;//FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
调用屏保:
shellexecute(handle,'open','c:\winnt\duba2003.scr','','',sw_shownormal);
因为屏保也是一种可执行文件
至于建立目录,我试试看行不行,行的话我把它贴上来
建立目录可以用delphi的函数forceDirectories(目录名字符串)就可以了,我试过了