delphi杂记(转)

 

//获取任务栏尺寸
procedure TForm1.Button1Click(Sender: TObject);
var
TaskList: HWnd;
Bordered: TRect;
begin
TaskList := FindWindow(’Shell_TrayWnd’, nil);
GetWindowRect(TaskList, Bordered);
Label1.Caption := ’Left: ’ + IntToStr(Bordered.Left);
Label2.Caption := ’Right: ’ + IntToStr(Bordered.Right);
Label3.Caption := ’Top: ’ + IntToStr(Bordered.Top);
Label4.Caption := ’Bottom: ’ + IntToStr(Bordered.Bottom);
end;


//修改指定路径下的文件只读属性
function PathSetAttr(sFilePath: string): Boolean;
var
SearchRec: TSearchRec;
begin
Result := False;
if Copy(sFilePath, Length(sFilePath) - 1, Length(sFilePath)) <> ’/’ then
   sFilePath := sFilePath + ’/’;
if DirectoryExists(sFilePath) then
begin
   if FindFirst(sFilePath+’*.*’, faAnyFile, SearchRec) = 0 then
   begin
     FileSetAttr(SearchRec.Name, 32);
     while FindNext(SearchRec) = 0 do
       FileSetAttr(SearchRec.Name, 32);
   end;
   Result := True;
end;
end;


//为控件加边框
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
dc: hDC;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;
begin
inherited;
dc := GetWindowDC(Handle);
msg.Result := 1;
Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0, 0, Self.Width, Self.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;


//制作透明窗体
procedure CreateParams(var Params: TCreateParams); override;  //重载 CreateParams 过程的实现

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
//先继承原来的 CreateParams 过程
inherited;
//然后修改 Param.ExStyle 的值，使窗体具有透明效果
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
//将画布的笔刷样式改成 bsClear 以及时清除窗体原来的内容，这样窗体就有透明效果
Canvas.Brush.Style := bsClear;
end;