テキストファイルで右クリックをすると、"署名を貼り付け"と言う項目がでて、
貼り付けてくれるソフトを考えています。
貼り付けのコードはできているのですが、
[ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long,ByVal wMapType As Long) As Long
Dim data As String
Dim lpText As BytePtr,hText As HGLOBAL
Open "C:\a.txt" For Input As 1
Input #1,data
Close 1
hText=GlobalAlloc(GMEM_DDESHARE Or GMEM_MOVEABLE,Len(data)+1)
lpText=GlobalLock(hText)
lstrcpy(lpText,StrPtr(data))
GlobalUnlock(hText)
OpenClipboard(0)
EmptyClipboard()
SetClipboardData(CF_TEXT,hText)
CloseClipboard()
'GlobalFree(hText)
Sleep(200)
keybd_event(VK_CONTROL,MapVirtualKey(VK_SNAPSHOT,0),0,0)
keybd_event(Asc("V"),MapVirtualKey(VK_SNAPSHOT,0),0,0)
keybd_event(Asc("V"),MapVirtualKey(VK_SNAPSHOT,0),KEYEVENTF_KEYUP,0)
keybd_event(VK_CONTROL,MapVirtualKey(VK_SNAPSHOT,0),KEYEVENTF_KEYUP,0)
右クリックに、"署名を貼り付け"と言う項目を載せる所で悩んでます。
前回のようにレジストリを変えるのでしょうか
教えてください。