Index: trunk/bin/SubOperation/dx/main_exe_directx.abp
===================================================================
--- trunk/bin/SubOperation/dx/main_exe_directx.abp	(revision 363)
+++ trunk/bin/SubOperation/dx/main_exe_directx.abp	(revision 364)
@@ -2,14 +2,14 @@
 
 
-Dim ScreenX=640 As Long	'ディスプレイの幅  （ピクセル単位）
-Dim ScreenY=480 As Long	'ディスプレイの高さ（ピクセル単位）
+Dim ScreenX = 640 As Long	'ディスプレイの幅  （ピクセル単位）
+Dim ScreenY = 480 As Long	'ディスプレイの高さ（ピクセル単位）
 
 ' TODO: この位置にグローバル変数を定義してください。
 
 
-Function InitProc() As BOOL
+Function InitProc() As Boolean
 	'DirectXを初期化
-	If dx_Init(hMainWnd,ScreenX,ScreenY,FALSE)=0 Then
-		InitProc=0
+	If dx_Init(hMainWnd, ScreenX, ScreenY, FALSE)=0 Then
+		InitProc=False
 		Exit Function
 	End If
@@ -20,5 +20,5 @@
 	' TODO: この位置にアプリケーションの初期化コードを記述してください。
 
-	InitProc=1
+	InitProc = True
 End Function
 
@@ -49,5 +49,5 @@
 '------------------------------------------------
 
-If InitProc()=0 Then
+If InitProc() = False Then
 	MessageBox(0,"初期化に失敗しました。","Error",MB_OK or MB_ICONEXCLAMATION)
 	ExitProcess(0)
@@ -104,3 +104,4 @@
 
 QuitProc()
-ExitProcess(msgMain.wParam)
+System.Environment.ExitCode = msgMain.wParam As Long
+End
Index: trunk/bin/SubOperation/enum_process64/enum_process64.abp
===================================================================
--- trunk/bin/SubOperation/enum_process64/enum_process64.abp	(revision 363)
+++ trunk/bin/SubOperation/enum_process64/enum_process64.abp	(revision 364)
@@ -10,16 +10,16 @@
 ' EnumWindowsProcコールバック関数
 Function FindWindowProc(hwnd As HWND, lParam As LPARAM) As BOOL
-	Set_LONG_PTR(lParam As VoidPtr,hwnd As Int64)
-	FindWindowProc=FALSE	'列挙を中断
+	SetPointer(lParam As VoidPtr, hwnd As VoidPtr)
+	FindWindowProc = FALSE	'列挙を中断
 End Function
 
-Sub main(lpszCmdLine As LPSTR)
-	Dim temporary[MAX_PATH] As Byte, temp2[1024] As Byte
+Sub main(lpszCmdLine As LPTSTR)
+	Dim temporary[MAX_PATH] As TCHAR, temp2[1024] As TCHAR
 
-	Dim lpszBuffer As LPSTR
-	lpszBuffer=calloc(1)
+	Dim lpszBuffer As LPTSTR
+	lpszBuffer=calloc(SizeOf (TCHAR))
 
-	Dim szAppPath[MAX_PATH] As Byte
-	GetModuleFileName(GetModuleHandle(0),szAppPath,MAX_PATH)
+	Dim szAppPath[MAX_PATH] As TCHAR
+	GetModuleFileName(GetModuleHandle(0), szAppPath, MAX_PATH)
 
 	Dim pdwProcessId As *DWord
@@ -34,6 +34,5 @@
 
 		'プロセスIDを元にハンドルを取得
-		Dim hProcess As HANDLE
-		hProcess=OpenProcess(PROCESS_ALL_ACCESS,0,pdwProcessId[i])
+		Dim hProcess = OpenProcess(PROCESS_ALL_ACCESS,0,pdwProcessId[i])
 		If hProcess=0 Then Continue
 
@@ -75,6 +74,5 @@
 		End If
 
-		Dim hwnd As HWND
-		hwnd=0
+		Dim hwnd = 0 As HWND
 		EnumThreadWindows(te.th32ThreadID,AddressOf(FindWindowProc),VarPtr(hwnd) As LPARAM)
 
@@ -83,5 +81,5 @@
 		Wend
 
-		Dim szWndTitle[1024] As Byte
+		Dim szWndTitle[1024] As TCHAR
 		szWndTitle[0]=0
 		If hwnd Then GetWindowText(hwnd,szWndTitle,1024)
@@ -104,5 +102,5 @@
 		'--------------------
 
-		wsprintf(temp2,Ex"\q%s\q,%d,%s,%s\r\n",temporary,pdwProcessId[i],lpszPlatform,szWndTitle)
+		wsprintf(temp2,ToTCStr(Ex"\q%s\q,%d,%s,%s\r\n"),temporary,pdwProcessId[i],lpszPlatform,szWndTitle)
 
 		lpszBuffer=realloc(lpszBuffer,lstrlen(lpszBuffer)+lstrlen(temp2)+1)
@@ -119,8 +117,7 @@
 	_splitpath(szAppPath,temporary,temp2,NULL,NULL)
 	lstrcat(temporary,temp2)
-	lstrcat(temporary,"list.dat")
+	lstrcat(temporary,ToTCStr("list.dat"))
 
-	Dim hFile As HANDLE
-	hFile=CreateFile(temporary,GENERIC_WRITE,0,ByVal 0,CREATE_ALWAYS,0,0)
+	Dim hFile = CreateFile(temporary,GENERIC_WRITE,0,ByVal 0,CREATE_ALWAYS,0,0)
 
 	Dim dwAccBytes As DWord