Delphi中實現載入INF驅動程式!

2021-05-22 09:07:20 字數 608 閱讀 9324

幫助頁在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的...