
Delphi
文章平均质量分 71
ranzige
这个作者很懒,什么都没留下…
展开
-
ShellExecute的用法
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。CreateProcess因为使用复杂,比较少用。 WinExec主要运行EXE文件。如:WinExec(Notepad.exe Readme.txt, SW_SHOW); ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。首先必须引用shellapi.p原创 2006-08-17 10:44:00 · 837 阅读 · 1 评论 -
在Delphi中实现图片的旋转、缩放
在正式内容之前要把我要解决的问题写在前面,同时也让读者有一个好的定位,从而不会因为我在处理过程中的拙劣手段而感到恼火。这里主要解决的问题是在Delphi中将用扫描仪扫描得到的图片进行90度旋转,从而得到适合使用的图片,并且由于不能正确把握图片的大小,因此要对图片进行简单的缩放。而我的解决方法也完全是根据此要求进行,因为对于效率、图片处理之后的清晰度考虑的不是很多,同时带来的好处就是程序看起来很简单原创 2007-04-17 09:42:00 · 2132 阅读 · 0 评论 -
Delph32位色图标
实际上,delphi是支持任意颜色的图标的.你自己可以试验一下:写个程序,读入Image1.Picture.Icon.LoadFromFile();读入一个大于16色的图标,显示颜色是正常的.然后保存Image1.Picture.Icon.SaveToFile();到文件,用其它软件打开该图标,颜色也是正常的.所以说,delphi是支持高彩色的.但是,如果你把它赋给一个TIcon再保存,就只有16原创 2007-05-10 16:11:00 · 541 阅读 · 0 评论 -
在Delphi中抓屏
在Delphi中抓屏 procedure TForm1.FormClick(Sender: TObject);var winHWND, hCur:integer; winDC:integer; rect:TRect; //AFormat : Word; //AData,APalette : THandle; pt:TPoint; fBitmap:T原创 2007-05-10 16:21:00 · 590 阅读 · 0 评论 -
图片淡入淡出
function IntToByte(i: Integer): Byte;begin if i > 255 then Result := 255 else if i Result := 0 else Result := i;end;procedure BmpAlphaBlend(var Bmp: TBitMap; dBmp, sBmp: TBitmap; Pos: T原创 2007-05-10 16:14:00 · 651 阅读 · 0 评论