Changeset 364 for trunk/bin/SubOperation/enum_process64

Timestamp:

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

Author:

イグトランス (egtra)

Message:

FormatFloatFを実装

Location:

trunk/bin/SubOperation/enum_process64

Files:

• enum_process64.abp (modified) (6 diffs)
• enum_process64.exe (deleted)

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