Changeset 364 for trunk/bin/SubOperation

Timestamp:

Oct 24, 2007, 12:32:20 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatFloatFを実装

Location:

trunk/bin/SubOperation

Files:

• dx/main_exe_directx.abp (modified) (4 diffs)
• enum_process64/enum_process64.abp (modified) (6 diffs)
• enum_process64/enum_process64.exe (deleted)

trunk/bin/SubOperation/dx/main_exe_directx.abp

@@ -2 +2 @@
 
 
-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 +20 @@
     ' TODO: この位置にアプリケーションの初期化コードを記述してください。
 
-    InitProc=1
+    InitProc = True
 End Function
 
@@ -49 +49 @@
 '------------------------------------------------
 
-If InitProc()=0 Then
+If InitProc() = False Then
     MessageBox(0,"初期化に失敗しました。","Error",MB_OK or MB_ICONEXCLAMATION)
     ExitProcess(0)
@@ -104 +104 @@
 
 QuitProc()
-ExitProcess(msgMain.wParam)
+System.Environment.ExitCode = msgMain.wParam As Long
+End

trunk/bin/SubOperation/enum_process64/enum_process64.abp

@@ -10 +10 @@
 ' 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 +34 @@
 
         'プロセス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 +74 @@
         End If
 
-        Dim hwnd As HWND
-        hwnd=0
+        Dim hwnd = 0 As HWND
         EnumThreadWindows(te.th32ThreadID,AddressOf(FindWindowProc),VarPtr(hwnd) As LPARAM)
 
@@ -83 +81 @@
         Wend
 
-        Dim szWndTitle[1024] As Byte
+        Dim szWndTitle[1024] As TCHAR
         szWndTitle[0]=0
         If hwnd Then GetWindowText(hwnd,szWndTitle,1024)
@@ -104 +102 @@
         '--------------------
 
-        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 +117 @@
     _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