其他

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    proce

Code highlighting produced by Actipro CodeHighlighter

代碼Code highlighting produced by Actipro CodeHighlighter

Code highlighting produced by Actipro CodeHighlighter

ON ERROR RESUME NEXT  Dim VOL_PROD_KEYif Wscript.arguments.count<1 thenVOL_PROD_KEY=InputBox("辰日東起 http://blog.sina.com.cn/livxv"&vbCr&vbCr&" 本程式將自動替換你當前 Windows 的序號,通過微軟驗證完全正版。"&vbCr&vbCr&"序號(OEM版無效,預設版本為 XP VLK)：","Window

用在某個工具上的，查看資料非常方面，感覺棒極了。。。  Code highlighting produced by Actipro CodeHighlighter

Code highlighting produced by Actipro CodeHighlighter

Code highlighting produced by Actipro CodeHighlighter

Thread-safety(安全執行緒)是指代碼被多個線程同時執行的時候仍然正常工作。尤其是要滿足當多個線程都需要訪問同一共用資料空間的時候，只有一個線程能被滿足。多線程執行的時候是處在一個共用地址空間，每個線程都可以訪問其他線程的記憶體空間。為了使程式符合預定的執行的邏輯順序，提出了安全執行緒的概念，符合安全執行緒標準的代碼可以更好地得到控制、預測，不至於陷入後期Bug調試而無從下手的尷尬境地。在實際中要判定一段代碼是安全執行緒的會比較困難，而往往採用相反的策略：如何會導致線程不安全？下面列出

代碼Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)   

{-------------------------------------------------------------------------------過程名:    MakeFileList 遍曆檔案夾及子檔案夾參數:      Path,FileExt:string   1.需要遍曆的目錄 2.要遍曆的副檔名傳回值:    TStringListUSE StrUtils   Eg：ListBox1.Items:= MakeFileList( 'E:\極品飛車','.exe') ; 

//在一個exe檔案中尋找指定內容，找到則返回起始位置, 否則返回0//如果某字串, 直接傳入字串進來//如果要尋找16進位，則用如下格式傳參進來：

Code highlighting produced by Actipro CodeHighlighter

Code highlighting produced by Actipro CodeHighlighter

Code highlighting produced by Actipro CodeHighlighter

Code highlighting produced by Actipro CodeHighlighter

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;  private

Code highlighting produced by Actipro CodeHighlighter

代碼Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->procedure EncryptMemory(Data: Pointer; Size: Cardinal);  procedure EncryptData(var A, B: DWORD);  var    _Constant, i: DWORD;  begin    _Constant := 0

 Code highlighting produced by Actipro CodeHighlighter