上一页 1 ··· 53 54 55 56 57 58 59 60 61 ··· 69 下一页
2013年11月19日
Delphi经验总结(3)
摘要： ------------------------------------------------------- ◇删掉程序自己的exe文件 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var F:TextFile; begin AssignFile(F,'delself.bat'); Rewrite(F);{F为TextFile类型} WriteLn(F,'del '+ExtractFileName(Application.ExeName)); WriteLn(F, 阅读全文
posted @ 2013-11-19 08:50 麦麦提敏 阅读(355) 评论(0) 推荐(0)
2013年11月12日
卸载Windows服务
摘要： 在Windows中，有一类程序称为服务，在操作系统内核加载完成后就开始加载。这里程序往往运行在操作系统的底层，因此资源占用比较大、执行效率比较 高，比较有代表性的就是杀毒软件。但是一旦因为特殊原因不能正确卸载这些程序了，其加载在Windows内的服务就不容易删除了。即便是删除注册表中的相 应项目，虽然不启动了，但是系统中仍然存在此项服务，只是没有加载而已。如果安装其他的程序需要操作对应的地方的时候就容易出现兼容性问题了。那么如何彻 底的卸载也就是把服务也卸载掉呢？在命令行模式下输入 sc,看到了吧,一大堆命令语法：sc create | delete | config 服务名 [参数]主要参数 阅读全文
posted @ 2013-11-12 21:25 麦麦提敏 阅读(376) 评论(0) 推荐(0)
Windows 8操作技巧之快捷键大全
摘要： Windows 8操作系统发布之后，因为其新颖的界面和对触屏友好的设计，使许多长期使用Windows系统的用户，也觉得一时难以适应，一些操作方式也不知道如何去实现。在Windows系统中，快捷键无疑是提高操作速度的杀手锏。然而，Windows 8系统的快捷键相对于前几代又有了新的变化，小编整理了一下，罗列出来如下： Windows键+空格键：切换输入语言和键盘布局 Windows键+O：禁用屏幕翻转 Windows键+,：临时查看桌面 Windows键+V：切换系统通知信息 Windows键+Shift+V：反向切换系统通知信息 Windows键+回车：打开“讲述人” Windo... 阅读全文
posted @ 2013-11-12 21:03 麦麦提敏 阅读(322) 评论(0) 推荐(0)
2013年10月21日
delphi 换行操作 Word
摘要： delphi 换行操作我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。 procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象,如果出现异常就做出提示 try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见，值为false时，程序在后台运行。 FWord.Visible := True; except mess 阅读全文
posted @ 2013-10-21 13:13 麦麦提敏 阅读(1033) 评论(0) 推荐(0)
现在, Delphi 的多线程已经非常易用了!
摘要： 先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;修改为多线... 阅读全文
posted @ 2013-10-21 11:28 麦麦提敏 阅读(400) 评论(0) 推荐(0)
XP 之后, Delphi 动注册表不方便了...逼出来一个办法:
摘要： XP 之后, Delphi 动注册表不方便了...逼出来一个办法:手头的程序需要修改注册表, 以让当前程序成为某格式的默认打开程序并关联图标; Vista 之后需要管理员权限才能操作注册表, 很麻烦, 所以有了下面的尝试.unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 =... 阅读全文
posted @ 2013-10-21 11:14 麦麦提敏 阅读(387) 评论(0) 推荐(0)
写了一个字符串的二维表: TSta
摘要： STA 单元 (用到 System.SysUtils.TStringHelper):------------------------------------------------------------------------------------------------------------------------------------------unit STA;interfaceuses System.SysUtils, System.Classes;type TSta = record FSeparator: Char; FArr: TArray>; con... 阅读全文
posted @ 2013-10-21 10:58 麦麦提敏 阅读(432) 评论(0) 推荐(0)
现在使用控件, 更喜欢继承
摘要： 以前写代码, 总是把主单元弄得满满当当; 现在更喜欢把控件比较独立的功能写成一个单元, 改写属性、重载方法...哪怕只有一点点和默认不同, 也喜欢独立出来.刚刚用到 TListBox, 需要能拖动元素、双击删除.------------------------------------------------------------------------------------------------------------------------------------------------unit ListBox2;interfaceuses System.Classes, Vcl.C. 阅读全文
posted @ 2013-10-21 10:54 麦麦提敏 阅读(303) 评论(0) 推荐(0)
随便找个网站获取格林威治时间, 并转换到北京时间
摘要： uses Winapi.msxml, System.DateUtils;//实时获取网络时间的函数, 得到的是格林威治时间; 默认从 sohu 服务器获取, 因为它最快, 平均只需 15 毫秒function GetNetTime(aUrl: WideString = 'http://www.sohu.com'): string;begin with CoXMLHTTP.Create do begin open('Post', aUrl, False, EmptyParam, EmptyParam); send(EmptyParam); Result := ge 阅读全文
posted @ 2013-10-21 10:48 麦麦提敏 阅读(350) 评论(0) 推荐(0)
2013年10月13日
delphi提示“Undeclared_identifier”的缺少引用单元列表
摘要： _StreamADODB_TLBakTop, akLeft, akRight, akBottomControlsApplication (the variable not a type)FormsBeepSysUtils or Windows (different functions)CGID_EXPLORERShlObjCN_BASEControlsCoInitializeActiveXCopyFileWindowsCoUnInitializeActiveXCreateComObjectComObjCreateOleObjectComObjDateSysUtilsDeleteFileSysU 阅读全文
posted @ 2013-10-13 18:21 麦麦提敏 阅读(5125) 评论(0) 推荐(0)
上一页 1 ··· 53 54 55 56 57 58 59 60 61 ··· 69 下一页