原创 Delphi下遍歷文件夾下所有文件的遞歸算法
procedure MakeTree(var slFile: TStrings; const FileExt: string); var Sr : TSearchRec; Err : integer; TrSize, File
2020-07-07 04:45:17
45
原创 Windows消息大全使用的詳細介紹
消息，就是指Windows發出的一個通知，告訴應用程序某個事情發生了。例如，單擊鼠標、改變窗口尺寸、按下鍵盤上的一個鍵都會使Windows發送一個消息給應用程序。消息本身是作爲一個記錄傳遞給應用程序的，這個記錄中包含了消息的類型以及其他信
2020-02-21 16:10:01
原创 在Delphi中讀寫TXT文件
Procedure NewTxt(FileName:String); Var F : Textfile; Begin if fileExists(FileName) then DeleteFile(FileName); {看文件是否
2020-02-21 16:10:01
2
原创 Sendmessage最大最小化窗口
keybd_event只用來產生鍵盤事件，系統捕捉到鍵盤事件後，會轉化爲鍵盤消息的形式派發給擁有鍵盤輸入焦點的應用程序。 PostMessage首先把消息發送到指定句柄所在線程的消息隊列再由線程派發。 SendMessage直接把消息送
2020-02-21 16:10:01
10
原创 delphi發送郵件代碼
procedure TForm1.Button1Click(Sender: TObject); begin try IdSMTP1.AuthenticationType:=atLogin; //設置登陸類型 I
2018-08-26 00:30:27
原创 Delphi 關鍵字詳解
absolute //它使得你能夠創建一個新變量, 並且該變量的起始地址與另一個變量相同. var Str: string[32]; StrLen: Byte absolute Str; //這個聲明指定了變量StrLen起始地
2018-08-26 00:30:27
原创 DELPHI - FindFirst查找文件
Delphi——FindFirst學習 FindFirst在SysUtils中聲明 原型爲 Fucntion FindFirst(const Path:String;Attr:Integer;Var F:TSearchRec):Inte
2018-08-26 00:30:25
原创 oracle怎麼實現id自增和設置主鍵
1、關於主鍵：在建表時指定primary key字句即可： create table test( id number(6) primary key, name varchar2(30) ); 如果是對於已經建好的表，想增加主鍵約
2018-08-26 00:30:25
原创 delphi調用外部程序
這個程序主要作用就是用Delphi調用外部程序 並實現運行過程中不顯示/顯示運行窗口的功能 這樣就可以實現運行批處理不出現黑窗口的功能了。 具體實現過程如下，如果你其中有不明白的地方可以先放着 因爲這是給網吧專用的快速入門
2018-08-26 00:30:25
原创 一位軟件工程師的6年總結
“又是一年畢業時”，看到一批批學子離開人生的象牙塔，走上各自的工作崗位；想想自己也曾經意氣風發、躊躇滿志，不覺感嘆萬千……本文是自己工作6年的經歷沉澱或者經驗提煉，希望對所有的軟件工程師們有所幫助，早日實現自己的人生目標。本文主要是關於軟
2018-08-26 00:30:25
原创 DELPHI好東西
hao http://www.cnblogs.com/dabiao/category/221941.html TStringList詳解用法 http://hi.baidu.com/liuying_12300/item/f271a61c6
2018-08-26 00:30:25
原创 WinAPI: FindWindow、FindWindowEx - 查找窗口
FindWindow( lpClassName, {窗口的類名} lpWindowName: PChar {窗口的標題} ): HWND; {返回窗口的句柄; 失敗返回 0}//FindWi
2018-08-26 00:30:25
原创 Delphi中SendMessage使用方法
找另外一個窗口的句柄： handle := FindWindow(nil,PChar('窗口的標題'));//查到窗體句柄 查找子窗體：childHandle := FindWindowEx(handle,0,'子窗體類','子窗體標題'
2018-08-26 00:30:25
原创 截圖：截取當前程序的界面，並保存到bmp圖片中。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St
2018-08-26 00:30:25
原创 事故反思報告
ITO機臺事故反思報告 2013年7月6日下午3點30分時，我用ScreenEdit軟件連接ITO機臺時，誤以爲下載功能是將機臺程式拷貝到計算機中，但事實相反。誤將機臺原程式覆蓋掉，造成原程式的丟失。使機臺無法開機，影響了公
2018-08-26 00:30:23