delphi編寫仿windows記事本遇到的問題

2021-06-05 02:10:31 字數 513 閱讀 8562

在用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...