Home » Windows API

lstrcat

[ 日期： | 瀏覽：3,682 | 迴響：搶沙發 ]

說明：
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



參數型態及說明：
lpString1：String 要附加字串的字串，此字串必須要有足夠的記憶體空間來附加新的字串
lpString2：String 要附加的字串

回傳值：
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範例：

檢視原始碼 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#範例：

檢視原始碼 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");

發表迴響