2012年5月21日
记事本与计算器的调用
摘要： procedure TMain.N8Click(Sender: TObject);var OFile:String; HWndCalculator:HWnd;begin HWndCalculator:=FindWindow(nil,'计算器'); if (HWndCalculator=0) then begin OFile:='calc.exe'; Shellexecute(handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL); end;end;pr 阅读全文
posted @ 2012-05-21 21:04 Unique.Y 阅读(172) 评论(0) 推荐(0) 编辑