05 2012 档案

记事本与计算器的调用
摘要：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 阅读(176) 评论(0) 推荐(0)
视频: 数据结构与算法 哈工大 完整一套已经编成专辑 链接见右边的视频
摘要：http://v.youku.com/v_show/id_XMzg3OTAxNzQ0.html 阅读全文
posted @ 2012-05-04 09:19 Unique.Y 阅读(182) 评论(0) 推荐(0)
StringGrid单元格的背景色 (转)
摘要：procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var dx: Integer; begin with (Sender as TStringGrid) do begin //要制定单元格可以在这里进行判断 if (ACol = 0) or (ARow = 0) then Canvas.Brush.Color := clBtnFace else begin case ACol of 1: Canvas.Font.Color 阅读全文
posted @ 2012-05-03 10:32 Unique.Y 阅读(2009) 评论(0) 推荐(0)