在用delphi編寫仿windows記事本的時候在寫最後乙個選單的選單項的時候遇到的問題
通常情況下,我們需要編寫程式都需要 幫助文件 和 關於軟體 這兩項,在delphi中是怎麼實現的呢?來看看下面的**吧
uses shellapi
procedure tmainform.mmimenuhelpthemclick(sender: tobject);
begin
shellexecute(self.handle, 'open', '../doc/notepad.chm',nil,nil, sw_show);
end;
procedure tmainform.mmimenuaboutclick(sender: tobject);
begin
shellabout(self.handle,
pchar('記事本'),
end;
第乙個實現了幫助文件,第二個實現了關於。挺不錯的。記錄下來
Delphi 編寫系統服務
新建乙個類,例如名字叫做tnoticethread,繼承自tthread,並重寫protected過程execute。在noticeservice的類定義中新增乙個noticethread物件。找到屬性的events選項卡,分別新增onstart,onpause,oncontinue,onstop事...
Delphi編寫Windows NT中服務程式
windows nt服務程式不同於一般的執行程式,它不需要nt登入進去,只需要開機進入nt系統便可以執行,一般用於系統服務方面的應用,學會編寫nt服務程式對網路管理人員而言是非常重要的,delphi作為一種高效 快速 強大的開發語言,為開發nt服務程式提供了非常便捷的方法,加上其視覺化介面以及與資料...
delphi中為自定控制項繪製windows按鈕
若要自定工具攔,但也要保留windows樣式的按鈕時 下面給出一種實現 procedure tmybutton.defaultdraw var arect,r trect wpos,hpos integer details tthemedelementdetails begin hpos 0 are...