straw hat in the wind

摘要：本文主要介绍了用Delphi编程实现程序的快捷方式的方法，其中主要讨论了Delphi中COM编程的方法、快捷方式的实现方法，并给出了一个实例程序。关键词：COM编程，快捷方式Windows系统提供了快捷方式来简化用户对应用程序的执行，尽量使得用户不与应用程序的具体位置挂上关系，大大方便了用户的操作。所以，在Windows系统下，大多安装程序一般都提供创建程序组和快捷方式。但，你有没有想过...

基于Delphi的融合DLL中的窗口 　摘　要：提出了一种简单的方法将DLL中的窗口融合（嵌入）到其他应用程序或DLL的窗口中，使用本方法可以简便地实现具有强扩展性和升级能力的软件系统。　　 1　引言　　在开发一个大型通用控制系统时曾遇到这么一个问题：该系统软件包由若干个可执行文件和动态链接...

众所周知,java,vb,c和c++中都有静态变量,它们都在变量前加上static，在delphi中没有static关键字来声明静态变量，要怎样声明呢？具体解决方法如下：procedure staticVarvar{$j+} const iVar : integer = 0; //声明静态变量{$j-} begin inc(iVar); ...

var hCurrentWindow:HWnd;szText:array[0..254] of char;beginhCurrentWindow:=Getwindow(handle,GW_HWndFrist);while hCurrentWindow <> 0 dobeginif Getwindowtext(hcurrnetwindow,@sztext,...

在测试硬件或软件的效率时或跟踪用户的响应速度时，需要测定消逝的时间。多数程序员使用一个TDateTime变量和Now函数来实现测定消逝时间的目的。但是，一种更简单的方法是使用Windows API函数GetTickCount。GetTickCount函数返回从启动Windows后消逝的毫秒数。如果函数成功地返回，返回值就是从启动Windows后消逝的毫秒数。下面是一个使用实例：proced...

　　Delphi以其优良的可视化编程，灵活的Windows API接口，丰富的底层操作越来越受到编程爱好者的青睐。　　在Delphi中，通过调用Windows API，可以很方便地获取系统信息，这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。　　一、 用GetDriveType函数获取磁盘信息 ...

请先添加 ComObj, ComConst引用，以下是实现代码。function PathCombine(lpszDest: PChar; const lpszDir, lpszFile: PChar):PChar; stdcall; external 'shlwapi.dll' name 'PathCombineA';function PathCombineA(lpszDest:...

1  连接远程服务器procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);2  改变目录procedure ChangeDir(const ADirName: string);3  下载procedure Get(const ASourceFile: string; ADest: TStream; AResume: Bool...

笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自优快云。...

//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.procedure TForm1.btnTestClick(Sender: TObject);var  str : string[32];         {string最大位数255，其实在内存中占用的是256字符，                            字符串的第0个位置保存了字符串的长度}  StrLen...

    最近因公司群发邮件程式需要给注册一段时间没有激活的用户发激活邮件  邮件中有注册密码 需要还原发给用户 但由于密码加密是用C# 中的TripleDES完成 手头上又没有现成Delphi的实现 时间紧急 现翻译是来不及了 于是经过查资料反复实施 终于成功实现在Delphi中调用 C# 封装的DLL中的方法(Function)和过程(Procedure)现把实施步骤写下 以供有需要的XDJM分...

//声明:SetLayeredWindowAttributes(  Hwnd: THandle;   {窗口句柄}  crKey: COLORREF; {透明色}  bAlpha: Byte;    {Alpha 值}  dwFlags: DWORD   {LWA_COLORKEY(=1)表示使用透明色; LWA_ALPHA(=2)表示使用 Alpha 值}): Boolean;        {...

2010已发布很长时间了，口碑还不错，准备用它开发下一项目，但对泛型等新东西的认识还不够，就搜了一下，发现下面这篇文章，还不错，大家一起补补课吧！C++中的模板、C#等语言中泛型技术，给许多操作不同类型数据的软件人员提供了一个很好的方法。其类型的“可变”性，让许多用过的软件人员所心喜。但是在Delphi 2009以前的版本中，是从来没有的。让许多不会用Delphi中TList的人员，大大的抱怨...

delphi 有很多组件可以用，下面介绍一下 在delphi2010中 添加组件的方法。在D2010IDE，初学者大都能够安装.Net控件，但VCL控件如何安装？大都茫然！下面就来力求详尽地回答这一问题。首先注意到Delphi2010的组件/控件安装，只支持BPL文件。所以，不管是pas文件、dpk文件或ocx文件类的组件或控件，都需要将其;变成bpl包文件。1. BP...

Agent技术的应用---- Microsoft Agent是微软公司于1997年9月发布的一项代理软件开发技术，而后被集成到Internet Explorer 4.0 Plus及更高版本中，目前版本为2.0，支持简体中文。作为一种软件代理工具，Agent以其强大的交互功能、鲜明的人性特点、优美的操作界面和简便统一的编程方法，对由菜单、按钮、提示框等组成的传统人机交互方式产生了很大影响，在多媒...

function ComponentToStr(AComponent: TComponent): string;var  BinStream: TMemoryStream;  StrStream: TStringStream;  s: string;begin  BinStream := TMemoryStream.Create;  try    StrStream := TStringStrea...

在很多情况下我们也许想把某些控件的默认右键菜单屏蔽掉。屏蔽控件右键菜单有很多种方法，现在就介绍我知道的其中四种。  在介绍之前，先让我们看一下下面这段代码，这段代码是VCL库中TControl对象的一段代码，从这段代码我们可以看出右键菜单的弹出事件都写在弹出菜单消息里面。 private  procedure WMContextMenu(var Message: TWMContextMenu); ...

要求：利用Win32 API SHBrowseForFolder开启一个选择文件目录的对话框，预先定位到默认的目录，最后返回所选择的结果，如果没有进行选择（即单击“取消”结束选择）则返回空''。代码如下:(以下两个函数定义需要在uses中引入两个单元ShlObj,Windows;)function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, ...