Delphi 创建Excel表格文件

Delphi 使用ESC键停止循环，示例演示程序，单击按钮开始循环，按下键盘ESC键，将停止循环。程序核心代码： 　　begin 　　 for i:= 0 to 9999999 do 　　 begin 　　 Edit1.Text := IntToStr(i); 　　 //允许应用程序在循环中可以处理消息 　　 Application.ProcessMessages; 　　 //用是 ESC 键放弁循环 　　 if GetKeyState(VK_ESCAPE) and 128 = 128 then 　　 Break; 　　 end; 　　end;

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

Delphi 变速齿轮# 让时间变快减慢，其实这个似乎是做不到的，只是模拟一下，代码及描述如下： 　　procedure Speed(count:word); stdcall; 　　const ExceptionUsed = $03; { 中断号也可以用其它的中断号} 　　var 　　 IDT : array [0..5] of byte; { 保存中断描述符表} 　　 lpOldGate : dword; {存放旧向量} 　　begin 　　 asm 　　 push ebx 　　 sidt IDT {读入中断描述符表} 　　 mov ebx, dword ptr [IDT+2]{IDT表基地址} 　　 add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置} 　　 cli {关中断} 　　 mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 } 　　 shl edx, 16d {左移16位} 　　 mov dx, word ptr [ebx] {取1,2字节 } 　　 mov [lpOldGate], edx {保存旧的中断门} 　　 mov eax, offset @@Ring0Code {修改向量，指向Ring0级代码段} 　　 mov word ptr [ebx], ax {低16位,保存到1,2字} 　　 shr eax, 16d 　　 mov word ptr [ebx+6], ax {高16位，保存到6,7位} 　　 int ExceptionUsed {发生中断} 　　 mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中} 　　 add ebx, 8*ExceptionUsed 　　 mov edx, [lpOldGate] 　　 mov word ptr [ebx], dx 　　

Visual C# 调用声音控制对话框，在windows Xp下表现挺好，在Windows7有些问题，调用的面板并不会显示出来，这是为何呢？windows调用 声音对话框的实例 ，基于Delphi7源码实现。

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。

本源码向大家演示Delphi如何清空TImage组件中的图片，如示例截图所示，TImage组件中已经装载了一张图片，单击“清空图片”按钮，将调用以下代码清空TImage组件中的图片数据： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 image1.picture.graphic := nil; 　　end; 　　这是一个比较初级的Delphi图像组件用法示例，Delphi新手可参考学习。

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;

Delphi 限制窗口最大化显示，当用户单击最大化按钮后，窗口稍微变大了一点，但并没有最大化，有时候，我们需要限制，不让窗口最大化，在编写实现此功能时，定义了WMGetMinMaxInfo，以下代码在函数中定义，用户操作按钮，激活函数： 　　with Message.MinMaxInfo^ do 　　begin 　　ptMaxSize.X := 400; //最大化时宽度 　　ptMaxSize.Y := 300; //最大化时高度 　　ptMaxPosition.X := 120; //最大化时左上角横坐标 　　ptMaxPosition.Y := 120; //最大化时左上角纵坐标 　　end; 　　Message.Result := 0; //通知Windows改变了minmaxinfo

delphi windows远程桌面链接源码，带代理功能，支持win2012 原创代码