2010 年 10月随笔档案 - sunjun0427

Delphi获取本机MAC地址

摘要：function MacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint;stdcall;GUID1, GUID2: TGUID;begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Wi... 阅读全文

posted @ 2010-10-21 14:45 sunjun0427 阅读(1425) 评论(0) 推荐(0)

Delphi 小知识汇总

摘要：一些delphi开发的小技巧2008-04-22 21:16这是我从网上收集到的一些delphi开发的小技巧，现在与大家一起分享◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过Mous... 阅读全文

posted @ 2010-10-21 11:33 sunjun0427 阅读(671) 评论(0) 推荐(0)

如何在一个窗体中嵌入另一个窗体

摘要：本例子为在Form1的Panel中显示Form2窗体，请注意例子中的reintroduce关键字//Form1 父窗体usesunit2;procedureTForm1.FormCreate(Sender:TObject);beginform2:=TForm2.Create(Panel,self);form2.BorderStyle:=bsNone;form2.WindowState:=wsMax... 阅读全文

posted @ 2010-10-21 11:30 sunjun0427 阅读(525) 评论(2) 推荐(0)

一个学习Pascal 语言的英文网站 Learn Pascal

摘要：http://www.taoyue.com/tutorials/pascal/contents.html 阅读全文

posted @ 2010-10-21 11:25 sunjun0427 阅读(299) 评论(0) 推荐(0)

Delphi好书推荐

摘要：Delphi的经典书籍：1、《Delphi 技术手册》 Ray Liscbner著 632页　65元中国电力出版社2、《Delphi 5 开发人员指南》 Steve Teixeira & Xavier Pacheco著 1263页 138元机械工业出版社3、《Delphi COM 深入编程》 Eric Harmon著 473页 48元机械工业出版社4、《Delphi DirectX图... 阅读全文

posted @ 2010-10-21 11:14 sunjun0427 阅读(702) 评论(0) 推荐(0)

使代码简洁的 5 条忠告-Delphi

摘要：写代码是一种艺术。使用Delphi，任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外，请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误。忠告一布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句将布尔型变量赋值为True，而else... 阅读全文

posted @ 2010-10-21 11:12 sunjun0427 阅读(557) 评论(4) 推荐(0)

WINDOWS下进程详解

摘要：WINDOWS下进程详解.system process 进程文件: [system process] or [system process] 进程名称: Windows内存处理系统进程描述: Windows页面内存管理进程，拥有0级优先。是否为系统进程: 是 alg.exe 进程文件: alg or alg.exe 进程名称: 应用层网关服务描述: 这是一个应用层网关服务用于网络共享。是否... 阅读全文

posted @ 2010-10-21 11:04 sunjun0427 阅读(651) 评论(0) 推荐(0)

Windows关机函数ExitWindowsEx使用大全-Delphi（适用Windows所有操作平台）

摘要：{=======================================================================================================================关闭Windows函数ExitWindowsEx(UINT uFlag,DWORD:dwReserved)说明：控制WINDOWS的开关：如关闭WINDOWS，... 阅读全文

posted @ 2010-10-21 11:00 sunjun0427 阅读(2092) 评论(0) 推荐(0)

Mircosoft SQL Server无法安装的解决办法

摘要：一、安装SQL Server 遇到错误提示：以前的某个程序安装已在安装计算机上创建挂起的文件操作。运行安装程序之前必须重新启动计算机安装SQL Server 2000个人版用作开发，可是每次安装都提示“以前的某个程序安装已在安装计算计上创建挂起的文件操作。运行安装程序之前必须重新启动计算机。”重新启动了计算机之后，问题却丝毫没有解决，依然提示这样的话。解决方法：1）添... 阅读全文

posted @ 2010-10-21 10:56 sunjun0427 阅读(1364) 评论(0) 推荐(0)

获取本月第一天和最后一天的最简单的写法

摘要：var FirstDay, LastDay: TDateTime;begin FirstDay := StrToDate(FormatDateTime('yyyy-MM-01', Now)); LastDay := IncMonth(FirstDay) - 1; ShowMessage(FormatDateTime('yyyy-MM-01', Now)); //本月第一天 ShowMessage(... 阅读全文

posted @ 2010-10-21 10:54 sunjun0427 阅读(502) 评论(0) 推荐(0)

Delphi分割字符串的函数--ExtractStrings

摘要：Delphi中-ExtractStrings，分割的同时还可以去空字符串和去空白（可以自定义）。UnitClassesSyntaxExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;Description < by sp... 阅读全文

posted @ 2010-10-21 10:46 sunjun0427 阅读(2378) 评论(0) 推荐(0)

Format、FormatDateTime、FormatFloat 的用法

摘要：一、Format的用法Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于... 阅读全文

posted @ 2010-10-21 10:11 sunjun0427 阅读(498) 评论(0) 推荐(0)

职业程序员必看之文章

摘要：上网查资料的时候，偶尔看到了这篇文章，感觉写的不错，就贴出来与大家分享了。一、为何要学编程？每个人的动机不一样。大致有：1、为了找个好工作；或为了有更好的机会和更好的发展。 2、看到别人超厉害，所以也想学。 3、实际工作中很多场合需要。 4、从小就立志做个程序员，做软件工程师。 5、振兴中国的软件事业。。。。。。。=========================================... 阅读全文

posted @ 2010-10-19 22:45 sunjun0427 阅读(336) 评论(0) 推荐(0)

Delphi只能运行一个程序实例的方法

摘要：在project/view source里编辑。利用Windows系统的全局原子全局原子利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，... 阅读全文

posted @ 2010-10-19 11:26 sunjun0427 阅读(376) 评论(2) 推荐(0)

Delphi操作XML

摘要：创建IXMLDOMDocument对象的三种方法：(1)[方法1] 直接创建 IXMLDOMDocument , 例(1) uses msxml; var DOC:IXMLDOMDocument; doc := CoDOMDocument.create; ..... Doc := nil;A)doc.load('C:\temp.xml'); //从文件载入B) 动态创建 var aElement... 阅读全文

posted @ 2010-10-19 10:24 sunjun0427 阅读(781) 评论(0) 推荐(0)

Delphi Application.MessageBox详解

摘要：1. Text：要显示的讯息2. Caption：讯息视窗的标题列文字3. Flags：讯息旗标 3.1. 可指定讯息视窗上的图示 3.2. 可指定讯息视窗出现的按钮 3.3. 可指定预设Focus在哪一个按钮 3.4. 可指定是否 Modal 3.5. 其他引数说明：Text、Caption 引数为 PCahr 型态，字串型态的变数可用 PChar()转换，若直接传入一个字串的话，就不用转型。例... 阅读全文

posted @ 2010-10-19 10:19 sunjun0427 阅读(481) 评论(0) 推荐(0)

关于delphi Com+调用C# DLL的一点说明

摘要：现在来说一下调用过程：【本地调试通过，环境是XP，delphi7.0,vs2005】首先在vs2005中创建一Class Library项目，添加2个cs文件，代码分别为：声明一个接口1usingSystem;2usingSystem.Collections.Generic;3usingSystem.Text;4namespacebeep_Class5{6publicinterfaceIGO7{... 阅读全文

posted @ 2010-10-15 18:09 sunjun0427 阅读(452) 评论(0) 推荐(0)

Delphi判断一个字符是否为汉字的最佳方法[转]

摘要：由于从 Delphi2005开始支持中文标识符，在编写 PASCAL 词法分析器的过程中遇到了这个问题，经过多次试验找到了解决方案，至今未发现问题。代码如下：view plainprint?//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i<19968)or(i>40869)the... 阅读全文

posted @ 2010-10-14 12:26 sunjun0427 阅读(649) 评论(0) 推荐(0)

一名Delphi程序员的开发习惯（转）

摘要：有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。一．建立工程目录首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录... 阅读全文

posted @ 2010-10-14 09:48 sunjun0427 阅读(675) 评论(1) 推荐(0)

Delphi从EXE或DLL获取ICO图标

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button2: TButton; Button3: TButton; OpenDialog1: TOpenD... 阅读全文

posted @ 2010-10-13 13:17 sunjun0427 阅读(1318) 评论(0) 推荐(0)

C#中窗体的close,dispose,以及application.exit()的区别

摘要：close关闭窗体，对象仍然存在，调用Close函数释放资源后可能还需要再次使用。 dispose，销毁对象，窗体对象被回收了，也就是不存在了，Dispose函数释放的资源不再使用。application.exit.整个程序进程结束，项目中的所有对象都会被销毁，退出整个应用程序。注：在MDI情况下会有所不同。在这种情况下，您需要手动调用Dispose，将窗体的所有控件都标记为进行垃圾回收。Clos... 阅读全文

posted @ 2010-10-12 09:22 sunjun0427 阅读(410) 评论(0) 推荐(0)

怎么用DevExpress的dxBarManager动态创建按钮Button与事件OnClick

摘要：动态添加Buttonprocedure TForm1.Button1Click(Sender: TObject);var NewItemLink: TdxBarItemLink; kk: TdxBarSubItem; MyBtn: TdxBarButton;begin MyBtn := TdxBarButton.Create(Self); MyBtn.Caption := '通过程序放上去的'; ... 阅读全文

posted @ 2010-10-11 12:44 sunjun0427 阅读(1946) 评论(0) 推荐(0)