HSPTV!掲示板

クリップボード内容の履歴を取るプログラムを作成していますが、
動作中はエディタ等で貼り付け操作ができなくなったり、
正常にコピーされなかったりします。
どうすれば改善できるでしょうか？

取得する方法については、
hspext.dllだとシステムエラーが発生することがあるので、
さくらさんのstdlibにあるモジュールを利用しています。

#ifdef __hsp30__
#ifndef __EXCLIPBD__
#define __EXCLIPBD__
#module
#deffunc getcliptext var prm1
	if vartype(prm1)!2 : return -1
	//OpenClipboard hwnd
	IsClipboardFormatAvailable CF_OEMTEXT
	ret=stat : if ret==0 : CloseClipboard : return -1
	if ret!0 {
		OpenClipboard hwnd
		GetClipboardData ret : lngHwnd=stat
		if lngHwnd==0 : CloseClipboard : return -1
		GlobalSize lngHwnd : ls=stat
		GlobalLock lngHwnd : lngMem=stat
		sdim strClipData,ls+1
		lstrcpy varptr(strClipData),lngMem
		GlobalUnlock lngHwnd
		CloseClipboard
		prm1=strClipData : sdim strClipData,0
	}
	return 0
#global
#endif
#endif

記録するタイミングについては、以下のように
過去内容と比較して一致しなかったときに記録しています。

	a="":b=""
	getcliptext a
*lp
	getcliptext a
	if a!b:{
		b=a
		//記録処理を行う
	}
	wait 5:goto *lp

すみません、補足です。
さくらさんのstdlibにあるモジュール、と書きましたが、
ここに載せたスクリプトは一部改変しています。
(コメントの削除, 関数名の変更, OpenClipboardの位置の変更など)

複数のサンプルスクリプトを調べた結果、
OpemClipboardやGlobalLockなどの実行順序が違ってたりしたのですが、
順序を変えて実行しても問題は解決されませんでした。

とりあえずOpenClipboard が成功したかどうかチェックするようにするというのは
どうでしょう？（失敗した場合はその回のクリップボードのチェックは諦める）

あとはOpenClipboard の引数を0にしてみるとか。

(失敗した時は諦める/諦めない, 引数を0にする/しない)

この4パターンを試してみましたが、いずれも解決には至りませんでした。
が、引き続き調べ続けていくうちに、OpenClibboardの引数を
現在アクティブになっているウィンドウのハンドルにしたらどうか
という結論に至り、GetForegroundWindowで指定してやると
上手く動作しました。

引数に着目するというアイデア、ありがとうございました。

Bkhoさんの件とは関係ないかもしれませんが、HSPの非表示状態のウィンドウの
ハンドルを引数として渡すとうまく動かないAPIとかありますね。RegisterHotKey
とかそうだったような。