摘要：
Delphi里面的目录删除函数，删除不了目录下含有子目录或者文件的目录，请参考如下。if(TDirectory.Exists('c:\wmp')) then ShellExecute(0,nil,'cmd.exe','/c rd c:\wmp /s /q',nil,SW_HIDE);用的是powershell也就是之前的dos命令 阅读全文
摘要：
其实很简单，利用表的不同别名，数据库为认为是两个不同的表，然后分别统计。数量大，会比较慢select zgcj,--分组项 COUNT(1) cou,--分项统计, (select COUNT(1) from CJ_ZGT b where b.zgcj>=a.zgcj and b... 阅读全文
摘要：
看到一个好方法，调用api，再不用在 move down up事件下来回计算了具体方法如下控件的 onmousemove事件内写如下代码ReleaseCapture;//Prevents the control from currently capturing all the mouse messages.阻止控件捕获当前的所有鼠标消息//Capture empties the root's Captured property.SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0); 阅读全文
摘要：
Delphi code//譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取:var s: string;begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS}end;一些系统目录变量列表：变量描述%WINDIR%{系统目录 - C:\WINDOWS}%SYSTEMROOT%{系统目录 - C:\WINDOWS}%SYSTEMDRIVE%{系统根目录 - C:}%HOMEDRIVE%{当前用户根目录 - C:}%USERPROFILE%{当前用户目录 - C:\Docume 阅读全文