VB控件和对象：App 对象
App 对象是VB应用程序的全局信息，如应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称以及是否运行前一个应用程序的示例。
属性
－－－－－－－ 其他属性－－－－－－－－－－－－－－－－－
EXEName 属性 返回当前正运行的可执行文件的根名（不带扩展名）。
Path 当前路径 只读
PrevInstance 返回一个值，该值指示是否已经有前一个应用程序实例在运行
TaskVisible 程序是否（缺省）出现在窗口任务列表中
ThreadID 返回执行线程的 Win32 ID。（用于 Win32 API 调用。）
Title 应用程序的标题，该标题要显示在 Microsoft Windows 的任务列表中。最大长度为 40 个字符
相关文档：
把下面的代码 粘贴到文本
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)� ......
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
将长路径转为短路径
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文� ......
VB 长整型和字节数组的转换问题 (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
用到的API声明：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......
