摘要：
自制力实在是太弱了，回想了一下这周的进度，真是惨不忍睹，本来计划要看的书一点都没看，每天写代码的时间都没几分钟，时间全花到上网跟聊qq上了，就有个想法，做一个进程管理的小程序，自动检测浏览器和qq，发现就关闭掉。主要使用了windows中的OpenProcess和TerminateProcess函数。第一步：检测进程是否存在（获取到任务管理器中的进程列表，循环比较跟要寻找的进程名称是否一致）function TProcessManage.CheckProcess(ProcessName: string;out ProcessID:DWORD): Boolean;var aps:array[1. 阅读全文
摘要：
没什么好说的，就是一个导出Excel的功能，代码如下：function TExportToExcel.Export(SGrid_List: TStringGrid;filename:string;out Errstr:string): Boolean;var excelapp:Variant; page:Variant; i,j:Integer; savedialog:TSaveDialog; strsavefile:string;begin try result := false; savedialog := TSaveDialog.Create(self); ... 阅读全文
摘要：
使用WPF开发应用程序，MVVM也许是个绕不过去的东西了，做一个小程序，做个参考。MVVM是Model-View-ViewModel的简写，代码分离真是做的相当到位，通过界面和控制类中的数据绑定，来实现数据的展示。第一步，建立view和viewmodel的联系。1.新建WPF应用程序。2.添加viewmodel文件夹，新建一个viewmodel的类，初始化的时候，实例化主窗口。MainWindow Mw = new MainWindow();3.修改app.xaml中项目的启动方式，使用startup事件，实例化viewmodel。MainWindowViewModel Mw = new Ma 阅读全文
摘要：
工作中对于读卡器的操作比较多，就自己总结了一下usb拔插的检测。首先，让自己的自定义类能接收windows消息，FHandle := AllocateHWnd(WinMethod);这个貌似有点像.net中的委托，把函数当做参数，添加自定义函数WinMethod.第二步，注册自己的usb设备。 1 procedure TUsbTest.RegisterUsbHandler; 2 var rDbi : DEV_BROADCAST_DEVICEINTERFACE; 3 iSize : integer; 4 begin 5 iSize := SizeOf(DEV_BROADCAST_DE... 阅读全文
摘要：
1.创建新网站。2.添加web服务。3.启动服务，任务栏中出现，随机产生一个端口号。4.delphi中添加Webservice，输入地址http://localhost:3137（端口号）/WebSite4（项目名称）/WebService.asmx?wsdl，确定即可使用（更新的时候要确保服务是启动的）。5.FWebService:=GetWebServiceSoap();创建之后，就可以使用了。 阅读全文
摘要：
在网上搜的不对，我就自己写了个。使用combobox的SelectionChanged事件。private void Combobox_change(object sender, SelectionChangedEventArgs e) { try { string ss = ""; ss = ((System.Windows.Controls.ComboBoxItem)e.AddedItems[0]).Content.ToString(); ... 阅读全文
摘要：
新手，还在熟悉，这段时间dbgrid用的比较多，刚开始的时候也是找了很多资料，现在整理了一下，有需要的就拿去看看，做个参考，O(∩_∩)O~dbgrid连接数据库我就不说了。1.dbgrid设置标题栏通常在使用的时候，标题栏使用中文命名的，但是数据库的字段名都是英文，不做修改的话，很不方便，我们可以给dbgrid添加column，将column的fieldname设置为字段名，caption设置为自己给标题起的名字，这样就把字段名和标题对应起来了。2.dbgrid统计行数行数的统计还是比较简单的，可以直接使用qurey1.recordcount,也可以使用dbgrid.datasource.d 阅读全文