147(1): 名前は開発中のものです。 [sage] 2013/01/30(水) 15:29:37.03 ID:cZuhgiqX(1/2) AAS
何言ってんだこいつ。日本語が不自由な上に統合失調症の傾向がある。
ロックするとか意味不明だし、プログラム向いてないから病院いっとけ。

141(1): 名前は開発中のものです。 [] 2013/01/29(火) 13:53:27.75 ID:fF0fMRN2(3/4) AAS
ちなみに文字列のポインタをＡＰＩに渡そうと思うとＶＢ2010の場合こんなふうになったまった。

　 Dim Str As String = "AAAA"
Dim L As Integer
Dim C() As Char
Dim B() As Byte
Dim G As GCHandle
Dim Ptr As IntPtr

C = Str.ToCharArray()
B = System.Text.Encoding.GetEncoding("Shift_JIS").GetBytes(C)
L = UBound(B) + 1 'サイズを指定する必要がある場合に使う
G = GCHandle.Alloc(B, GCHandleType.Pinned)
Ptr = G.AddrOfPinnedObject().ToInt32()