myamanda

摘要： usesWindows, SysUtils; ... // 这个函数返回的显示刷新率是以Hz为单位的 function GetDisplayFrequency: Integer; varDeviceMode: TDeviceMode; beginEnumDisplaySettings(nil, Cardinal(-1), DeviceMode);Result := DeviceMode.dm... 阅读全文

摘要： functionCPUSpeed:Double;constDelayTime=500;//时间单位是毫秒varTimerHi,TimerLo:DWORD;PriorityClass,Priority:Integer;beginPriorityClass:=GetPriorityClass(GetCurrentProcess);Priority:=GetThreadPriority(GetCurre... 阅读全文

摘要： functionGetMemoryTotalPhys:DWord;varmemStatus:TMemoryStatus;beginmemStatus.dwLength:=sizeOf(memStatus);GlobalMemoryStatus(memStatus);Result:=memStatus.dwTotalPhys;end; 阅读全文

摘要： 在USES部分，加入ShellApi单元。procedure TForm1.Button1Click(Sender: TObject); begin ShellAbout ( Handle, '应用程序名称', '你的名字', Application.Icon.Handle ); end; 阅读全文

摘要： 在USES clause: Registry function GetRegDataType ( const strRegPath, strRegValue: string ): string; var regRegistry: TRegistry; S: string; begin try regRegistry := TRegistry.Create; regRegistry.RootK... 阅读全文

摘要： 问题的产生 微软公司的Windows 操作系统已深入到各个领域，基于Windows的应用程序更是层出不穷。但人们或多或少都有这样的经历,运行在Windows上的应用程序会发生异常终止，这时一般要通过手工重新将其启动。此时，若计算机无人看守，则异常终止的进程就有可能影响正常工作。笔者在开发GPS全球卫星定位系统控制中心程序时，就遇到过控制中心程序异常终止的情况。本文介绍一种方法，可以自动复活这种异常... 阅读全文

摘要： 一、 引言 Windows支持三种基本的IPC（进程间通信）机制：动态链接库（DLL）中的共享数据段、Windows剪贴版(Clipboard)和动态数据交换DDE(Dynamic Data Exchange)。许多著名的Windows应用程序如Microsoft Word等都宣布支持DDE技术，并在程序中嵌入了DDE消息处理函数。而此类应用程序单在DDE技术上讲大多是作为一个DDE服务器形式存在... 阅读全文

摘要： Borland公司推出的 RAD开发工具 Delphi 5.0作为 Windows平台上的主流开发工具，其可视化的开发环境和面向对象编程的强大功能已经吸引了无数的开发人员。但是，一些程序员在实际的开发过程中却时常为对大量的数据进行压缩而伤透脑筋，不得不去查找一些高效的压缩算法或在网上查找第三方的控件来实现压缩。难道 Delphi本身没有提供这个功能吗？其实 Delphi的程序设计师早就考虑到了这一... 阅读全文

摘要： 在Delphi中调用Windows API 函数十分方便，只需在单元的uses段加入Windows 单元名即可（对于由Delphi自动创建的单元，该项工作已经完成）。单元Windows.pas 已经由Delphi编写并直接提供开发者引用。笔者在开发Windows 应用时对于几个特别的API 函数总结了一些经验供大家参考。一、关闭系统 　　对于某些特殊的应用程序，可能需要进行关闭系统的操作，可... 阅读全文

摘要： 在Windows桌面的任务栏上有一个凹陷的区域，其中显示着系统时钟以及一些图标，这个长方形的区域便是Windows的任务栏状态区 （taskbar status area）。本文将介绍使用Borland Delphi进行任务栏状态区的编程，即怎样将应用程序的图标显示在任务栏状态区中。 实现原理 任务 栏状态区的图标添加、删除、以及修改是通过Windows API函数Shell_NotifyIc... 阅读全文