摘要： #include <windows.h>#include <stdio.h>LRESULT CALLBACK WinSunProc( HWND hwnd, // handle to window UINT uMsg, // message identifier WPARAM wParam, // first message parameter LPARAM lParam // second message parameter);int WINAPI WinMain( HINSTANCE hInstance, // handle to current ins... 阅读全文

摘要： 要提醒您注意的是在使用 GHSOT 软件恢复系统时，请勿中途中止！如果您在恢复过程中重新启动了计算机那么您的计算机将无法启动！必定要接双硬盘或用光盘系统启动才可恢复在您的系统遇到以下的情况之一 怀疑或确定您的系统中了病毒或木马 系统运行了半个月以上 或出现无故死机 变慢 及相关类别 您需要还原您的系统镜像文件 以保证到系统的安全与良好运行1 重新启动 快速按F8 进入DOS界面　运行G.exe 进入GHOST界面 回车2 回车后 就会进入GHOST 的操作界面 见 图10此处操作选择菜单到 Local（本机）－－Partition（分区）－－From Image通俗一点说就是1-2-3 先选中 阅读全文

摘要： 最近做一个Case就是遇到这样的事，用一个PopupMenu为Listview的子项使用。下面是代码；写的有点乱，不过能用；第一步先在你的你的Form的OnCretae事件中添加代码；procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begin for i:=0 to PopupMenu1.Items.Count -1 do begin PopupMenu1.Items[i].Visible :=false; end;end;//这个循环的作用是初始化PopupMenu的所有子项为不可见；procedure ... 阅读全文

摘要： The EDITBALLOONTIP structure contains information about a balloon tip associated with a button control.Syntaxtypedef struct tagEDITBALLOONTIP { DWORD cbStruct; LPCWSTR pszTitle; LPCWSTR pszText; INT ttiIcon;} EDITBALLOONTIP, *PEDITBALLOONTIP;MemberscbStructDWORDthat contains the size, in... 阅读全文

摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils;//-------------for 语句实现----------------------------const N = 8;var Fib: array[0..8] of Integer ; i:Integer;begin Fib[0] := 0; Fib[1] := 1; for i:=2 to N do Fib[i] :=Fib[i -1] + Fib[i -2]; for i := 0 to N do Writeln(Fib[i]);R... 阅读全文

摘要： {没事做的时候拿一个c的杨辉三角翻译成DELPHI！ 觉的D的FOR不如C的FOR好使！DELPHI杨辉三角}program Project1;{$APPTYPE CONSOLE}usesSysUtils;vari, j, l, r:integer;a:array[0..17] of integer;n:Integer = 0;begina[0]:=0;a[1]:=1;while ((n < 1)or(n > 16)) dobeginWrite('请输入杨辉三角形的行数：');Readln(n);end;for i :=1 to n dobeginl:=0;for 阅读全文

摘要： 消息是Windows发出的一个通知，它告诉应用程序某个事件发生了。在Delphi中，大多数情况下Windows的消息被封装在VCL的事件中，我们只需处理相应的VCL事件就可以了，但如果我们需要编写自己的控件、截获或过滤消息就必须深入研究Win32的消息处理机制。在Delphi中消息以TMessage记录的方式定义。打开Message.pas文件，我们可以看到Tmessage是这样定义的：type TMessage = packed record Msg: Cardinal; case Integer of 0: ( WParam: Longint; LParam: Longint; Resul 阅读全文

摘要： /*前段时间看完C语言后对自增和自减有理解的不是很好，于是在网上也看了一些相关的帖子。对此总算是将这个问题解决了！先看一个简单的；*/# include <stdio.h>void main(){ int a, b, c, d; a = 5; b = 5; c = (a++) + (a++) + (a++); d = (++b) + (++b) + (++b); printf("a = %d, b = %d, c = %d, d = %d\n",a, b, c, d);}/*======================运行结果===========... 阅读全文

摘要： //▎============================================================▎////▎=====================⑿其它函数及过程=======================▎////▎============================================================▎//function TrimInt(Value, Min, Max: Integer): Integer; overload; {测试通过}{* 输出限制在Min..Max之间}function IntToByte(... 阅读全文

摘要： //▎============================================================▎////▎======================⑾进制函数及过程======================▎////▎============================================================▎//function StrToHex(AStr: string): string;{* 字符转化成十六进制}function HexToStr(AStr: string): string;{* 十六进制转化成字符}func 阅读全文