說明:
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"); |