Home » Windows API

lstrcat

說明:
lstrcat 函式可在指定字串後加上字串


引用函式庫:
Kernel32


適用系統:
Windows NT 3.1 或 Windows 95以上


函式原型:

Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _
    ByVal lpString1 As String, _
    ByVal lpString2 As String _
    ) As Long



參數型態及說明:
lpString1String 要附加字串的字串,此字串必須要有足夠的記憶體空間來附加新的字串
lpString2String 要附加的字串

回傳值:
Long 呼叫成功的話,將會回傳非零的數值;若呼叫失敗的話,則回傳 0

.NET Framework API:
System.String.Concat

VB範例:

檢視原始碼 Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'VB的宣告
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _
	ByVal lpString1 As String, _
	ByVal lpString2 As String _
	) As Long
 
'先宣告一個記憶體空間
Dim tmp As String
 
tmp = String(200, 0)
 
Dim rtvl As Long
 
'在tmp後面加上Windows API
rtvl = lstrcat(tmp, "Windows API")

RB範例:

檢視原始碼 REALBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
'RB的宣告
Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _
	lpString1 As Ptr, _
	lpString2 As CString _
	) As Integer
 
'先宣告一個記憶體空間
Dim tmp As New MemoryBlock(200)
 
Dim rtvl As Integer
 
'在tmp後面加上Windows API
rtvl = lstrcat(tmp, "Windows API")

VB.NET範例:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'VB.NET的宣告
<DllImport("kernel32.dll")> _
Shared Function lstrcat( _
	ByVal lpString1 As StringBuilder, _
	ByVal lpString2 As String _
	) As IntPtr
End Function
 
'先宣告一個StringBuilder
Dim tmp As New StringBuilder()
 
Dim rtvl As IntPtr
 
'在tmp後面加上Windows API
rtvl = lstrcat(tmp, "Windows API")

C#範例:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//C#的宣告
[DllImport("kernel32")]
public static extern IntPtr lstrcat(
	StringBuilder lpString1, 
	string lpString2
	);
 
//先宣告一個StirngBuilder
StringBuilder tmp = new StringBuilder();
 
IntPtr rtvl;
 
//在tmp後面加上Windows API
rtvl = lstrcat(tmp, "Windows API");

發表迴響