疯狂delphi - 博客园

登陆方式设计

摘要： 1. 1 program Project1; 2 3 uses 4 Vcl.Forms, 5 Unit1 in 'Unit1.pas' {Form1}, 6 Unit2 in 'Unit2.pas' {Form2}; 7 8 {$R *.res} 9 10 begin 11 Application. 阅读全文

posted @ 2019-01-04 09:03 疯狂delphi 阅读(362) 评论(0) 推荐(0)

解析Delphi 窗口置顶，及非主窗口置顶

摘要：方法一： procedure TForm1.Button2Click(Sender: TObject);begin Form2.Show; Application.NormalizeTopMosts; SetWindowPos(Form2.Handle, HWND_TOPMOST, 0, 0, 0, 阅读全文

posted @ 2018-12-29 10:08 疯狂delphi 阅读(3247) 评论(0) 推荐(0)

WIN锁屏+鼠标移动事件

摘要： winexec('rundll32.exe user32.dll, LockWorkStation', sw_hide); 1.shutdown.bat（关机） rundll32.Exe shell32.dll SHExitWindowsEx 1 2.logoff.bat（注销） rundll32. 阅读全文

posted @ 2018-11-29 20:01 疯狂delphi 阅读(967) 评论(0) 推荐(0)

BAT-显示桌面图标

摘要： echo offecho 显示用户的文件REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel /v {59031a47-3f72-44a7-89c5-5595fe6 阅读全文

posted @ 2018-07-28 00:02 疯狂delphi 阅读(1132) 评论(0) 推荐(0)

BAT-删除文件夹

摘要：相关资料：https://chuna2.787528.xyz/EasonJim/p/6087636.html 可以删除空的文件夹，但是文件夹中有文件，无法删除。 @echo off rd "C:\temp" 删除整个文件夹，包括里面的文件。 @echo off rd /s /Q C:\temp 阅读全文

posted @ 2018-06-08 17:27 疯狂delphi 阅读(799) 评论(0) 推荐(0)

QT-提示“database not open”

摘要：问题现象：要用QT开发"SQLite"时出现如下提示： QSqlQuery::exec: database not open QSqlDatabase: QSQLITE driver not loaded QSqlDatabase: available drivers: 问题原因：占时定为加载驱动阅读全文

posted @ 2018-05-17 21:33 疯狂delphi 阅读(4287) 评论(0) 推荐(0)

Wireshark抓包工具HttpAnalyzerStdV7

摘要： http.request.full_uri contains "XXXserver/api/" http.host contains "XXX5.单位.com" 阅读全文

posted @ 2018-05-09 16:03 疯狂delphi 阅读(1067) 评论(0) 推荐(0)

《敏捷软件开发》第4章测试

摘要：《敏捷软件开发》第4章测试 4.1测试驱动的开发方法答：作者的意思应该是说，先有测试方案，这样可以引导、督促开发人员向正确的方向写代码。 4.1.1一个测试优先设计的示例答：作者以一个游戏为例，说明了测试优先设计。 4.1.2测试促使模块之间隔离答：如果先做出测试方案，有利于分离耦合程序设计。 4. 阅读全文

posted @ 2018-05-07 20:07 疯狂delphi 阅读(181) 评论(0) 推荐(0)

《敏捷软件开发》第3章计划

摘要：《敏捷软件开发》第3章计划 3.1初始探索答：细分大的用户素材，合并小的用户素材。主要是为了了解开机速度。花费几天时间去原型化一到两个用户素材来了解团队的速度就足够了。这样的一个原型化过程称为探究（spike）。 3.2发布计划答：根据素材的实现需要的时间，来确定素材的优先级。 3.3迭代计划答阅读全文

posted @ 2018-05-07 18:59 疯狂delphi 阅读(204) 评论(0) 推荐(0)

取类型数据

摘要： System.TypInfo procedure TForm1.Button5Click(Sender: TObject);var ti: PTypeInfo; td: PTypeData; i: Integer; s: string;begin ti := TypeInfo(TWeekDays); 阅读全文

posted @ 2018-05-04 11:19 疯狂delphi 阅读(149) 评论(0) 推荐(0)