SHOJI's Code
以前、あるサイトを作ったときのそのトップページ。マップでガンガン画像を切り替えるような凝ったものを作った。そこまではいいんだけど、その後で「カウンター欲しいんですけど･･･」って依頼。その画像にCopyrightも含んでいるし、その下ってわけにも行かず、また画像をカウンターも含めてやり直すのも手間。結局レイヤーを作って画像の上にカウンターを持ってくることを思いついた。
Visual C++でしか試していないが、とりあえずコードを載せる。
#include <windows.h>
#include <stdio.h>
int main()
{
HANDLE h = LoadLibrary("KERNEL32");
printf("Hello, ");
if( h )
{
FARPROC lpfn = GetProcAddress(h, "IsDebuggerPresent");
if( lpfn )
if( (*lpfn)() )
printf("debugging ");
FreeLibrary(h);
}
printf("world!");
}
エクセルのVBAでスレッドが使えたらちょっと便利かも、と思いちょっと実験してみた。
まず、下のようなコードをちょっと走らせてみた。
これが、走らないのだ。スレッド内の最初の一行を表示したところで固まってしまった。
まず、下のようなコードをちょっと走らせてみた。
Declare Function CreateThread Lib "KERNEL32" _
(ByVal lpThreadAttributes As Any, _
ByVal dwStackSize As Long, _
ByVal lpStartAddress As Long, _
ByVal lpParameter As Long, _
ByVal dwCreationFlags As Long, _
ByRef lpThreadId As Long) As Long
Declare Function CloseHandle Lib "KERNEL32" _
(ByVal hObject As Long) As Long
Declare Function WaitForSingleObject Lib "KERNEL32" _
(ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Declare Sub Sleep Lib "KERNEL32" _
(ByVal dwMilliseconds As Long)
Dim hThread As Long
Dim idThread As Long
Sub test()
Dim i As Long
For i = 1 To 10
hThread = CreateThread(0&, 0&, AddressOf ThreadProc, i, 0&, idThread)
Debug.Print "Handle=" & hThread, "Id=" & idThread
n = WaitForSingleObject(hThread, -1)
Debug.Print n
CloseHandle hThread
Next i
End Sub
Function ThreadProc(ByVal n As Long) As Long
For i = 1 To 10
Debug.Print Now() & " THREAD" & n & ":" & i
Next i
ThreadProc = 0
End Function
これが、走らないのだ。スレッド内の最初の一行を表示したところで固まってしまった。
iniファイルからデータを読み出す関数として、GetPrivateProfileInt関数などがあるが、書く方はというとWritePrivateProfileString関数はあるのにWritePrivateProfileIntという関数はない。
不便なので、以前自前で作ったことがある。
不便なので、以前自前で作ったことがある。
| ホーム |