帮忙解释一下(100)

procedure viewInfo(s: string);var vr: TRect; aCanvas: TCanvas; DC: HDC;begin try if Length(s)>1024 then Exit; if isdebug1 or isDebug then begin DC := GetDC(0); // 得到桌面的设备环境句柄， aCanvas := TCanvas.Create; aCanvas.Handle := DC; aCanvas.TextOut(0, 0, s); aCanvas.Free; if mainHDW <> 0 then Postmessage(mainHDW, MyWM_ViewInfo, Longint(s), Length(s)); end; except end;end;

就是在桌面左上角上画字符串s，另外向mainHDW句柄发送一个自定义的消息啊。

麻烦在解释清楚一些，一点也不清楚这个

2楼已经很清楚,我路过

你哪一行不理解？

最好每行都解释一下啊，我没接触过这个

每行都不理解..就不用理解了,直接拿着用好了,用多了自然就理解了

procedure viewInfo(s: string);//过程定义——过程名称与参数var//开始变量定义 vr: TRect;//定义一个矩形变量 aCanvas: TCanvas;//定义一个画布变量 DC: HDC;//定义一个设备句柄变量begin //过程主体 try //try...except...end语句 if Length(s)>1024 then Exit; //如果字符串的长度大于1024就退出过程 if isdebug1 or isDebug then // 如果isdebug1 or isDebug 为真值，则执行以下代码 begin DC := GetDC(0); // 得到桌面的设备环境句柄， aCanvas := TCanvas.Create;//创建变量 aCanvas.Handle := DC;//设置句柄 aCanvas.TextOut(0, 0, s);//输出字符串 aCanvas.Free;//释放变量 if mainHDW <> 0 then Postmessage(mainHDW, MyWM_ViewInfo, Longint(s), Length(s));//发送消息 end; except end;[]这样可以了吗？[]

可以了，谢谢