2013年12月12日
创建互斥对象
摘要： program AIMQuery;uses Vcl.Forms, Winapi.Windows, UnitAIM in 'UnitAIM.pas' {Form1};{$R *.res}var hAppMutex:THandle;begin Application.Initialize; hAppMutex:=CreateMutex(nil,False,PChar('OnlyOne'));if (hAppMutex=0) then begin MessageBox(0,PChar('創建互斥對象！'),PChar('Error'), 阅读全文
posted @ 2013-12-12 16:38 vage_fang 阅读(239) 评论(0) 推荐(0) 编辑