幫助頁在http://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
自己在實現的過程中的具體過程如下:
function installinf(const pathname: string; hparent: hwnd): boolean;
varinstance: hinst;
begin
instance := shellexecute(hparent,
pchar('open'),
pchar('rundll32.exe'),
pchar('setupapi,installhinfsection defaultinstall 132 ' + pathname),
nil,
sw_hide) ;
result := instance > 32;
end;
procedure tform1.btn1click(sender: tobject);
begin
if installinf('f:/abc/arusb_lh.inf', 0) then
showmessage('ok');
end;
delphi中IDispath介面的實現類
delphi中idispath介面的實現類,由oleauto單元的tautoobject類進行了主要實現 實際是進行了乙個轉接實現tautoobject並沒繼承idispatch介面,而是裡面的乙個成員變數繼承了乙個idispatch介面 物件的 vmtautotable 68 位置儲存了auto表...
在listview中,實現 分頁載入 非同步載入
public voidonscroll abslistview view,intfirstvisibleitem,intvisibleitemcount,inttotalitemcount 語句解釋 為了頁面清晰,本範例僅僅將核心 列出來。變數currentpage代表當前已經載入了多少頁的資料。預...
在delphi執行緒中實現訊息迴圈
在delphi執行緒中實現訊息迴圈 2003 6 22 10 56 00 檢視評語 2003 6 22 11 02 24 我參考了一下msdn,還有windows核心程式設計.寫了乙個類來封裝這個功能,不知道對不對.裡面使用了兩個方法,乙個使用乙個隱含窗體來處理訊息 還有乙個是直接使用thread的...