wfhlxl的专栏

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

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

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)

以下是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

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

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

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