wfhlxl-CSDN博客

原创注册表-桌面篇

1.修改我的电脑图标:HKEY_LOCAL_MACHINE/SOFTWARE/Classes/CLSID/{20D04FE0-3AEA-1069-A2D8-08002B30309D}/DefaultIcon @= ”welcome.exe,0” //type: reg_sz 2.修改回收站图标:HKEY_USERS/y-y-y-yy-yyyyyyyyyy-yyyyyyyyyy-yyyyyy

2004-12-24 21:50:00 1635

原创优化ADSL上网速度

保存下面注册表信息为.reg文件:不要忘了先备份注册表。REGEDIT4[HKEY_LOCAL_MACHINE/SYSTEM/ControlSet001/Services/Tcpip/Parameters]"NV Hostname"="yourcomputername""NameServer"="""ForwardBroadcasts"=dword:00000000"IPEnableRoute

2004-12-24 09:20:00 1627

原创 XML Web services 基础结构

摘至msdn.若要在 Web 的多样性世界里取得成功，在涉及到操作系统、对象模型和编程语言的选择时，XML Web services 不能有任何倾向性。同样，若要使 XML Web services 像其他基于 Web 的技术一样被广泛采用，则它们必须是：松耦合的：如果对两个系统的唯一要求是要理解前面提到的自我描述的基于文本的消息，那么这两个系统就被认为是松耦合的。另一方面，紧耦合系统要

2004-12-23 11:05:00 980

原创设置墙纸（可用htm,bmp)

procedure setwallpic(picpath :string);varhr:hresult;wall:iactivedesktop;aa:pwidechar;begin activex.CoInitialize(nil); hr:=CoCreateInstance(CLSID_ActiveDesktop, nil, CLSCTX_INPROC_SERVER,

2004-12-23 10:06:00 848

原创 stretch textbox

VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1"

2004-12-23 09:28:00 823

原创小巧工具--图片浏览器

Private Sub Form_Load()On Error Resume NextDim a As Stringa = Commanda = Replace(a, Chr(34), "")Me.Picture2.Picture = LoadPicture(a)If Err.Number MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub For

2004-12-23 09:09:00 865

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)

2004-12-23 08:50:00 1020

原创俄罗斯方块源代码

.dfmobject Form1: TForm1 Left = 175 Top = 98 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = Form1 ClientHeight = 409 ClientWidth = 253 Color = clGray Font.Charset

2004-12-23 08:40:00 1281

原创用ado 在 access 存取二进制文件的一种办法

在access中建一个备注字段(备注类型一种数据量大的文本类型)，名为binary。主键id。有一timage已装载的图片。memstream为tmemorystream;p为byte存：self.Image1.Picture.Bitmap.SaveToStream(memstream);memstream.seek(0,soFromBeginning ); while memstream.Po

2004-12-23 08:08:00 1505 4

原创 win2000 或更迟版本可执行文件的自删除

以下是visual basic 6.0 的代码，在visual c++中或delphi中同样可行。Private Sub Form_Terminate()Shell "cmd.exe /c del " + Chr(34) + App.Path + "/" + App.EXEName + ".exe" + Chr(34)End Sub

2004-12-23 07:27:00 800

原创编程要学会绕道而行:实例分析--另一种绘制空心字的方法.

说道绘制空心字，win32 程序员都回想到使用gdi32的beginpath ... endpath。这样做固然行，但如果情况再复杂些，如空心字需要有“*”花纹，或针点式花纹，或边框，甚至还要流动，那么，用beginpath endpth ,再把path 分割成点数组，以实现流动。这样做效果却不是很好，一来实现复杂，二来效率也不高。其实，还有另一种思路的：那就是：一个空心中字等于，上

2004-12-22 21:21:00 1394

wfhlxl的专栏