ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年11月23日(木) 10:38

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
 記事の件名: applicationの一覧
投稿記事Posted: 2016年10月15日(土) 20:00 
オフライン

登録日時: 2016年9月24日(土) 15:35
記事: 62
コード:
#console
#include<vcrt71.sbp>

Type PROCESSENTRY32

    dwSize As DWord
    cntUsage As DWord
    th32ProcessID As DWord
    th32DefaultHeapID As DWordPtr
    th32ModuleID As DWord
    cntThreads As DWord
    th32ParentProcessID As DWord
    pcPriClassBase As Long
    dwFlags As DWord
    szExeFile[MAX_PATH] As BytePtr
End Type
Const TH32CS_SNAPPROCESS = 2
Declare Function CreateToolhelp32Snapshot Lib "kernel32" (
    Flags As Long, ProcessID As Long) As Long
Declare Function Process32First Lib "kernel32" (
    hSnapshot As Long,     ByRef ProcessEntry As PROCESSENTRY32) As Long
Declare Function Process32Next Lib "kernel32" (
    hSnapshot As Long,     ByRef ProcessEntry As PROCESSENTRY32) As Long

Dim hSnap As HANDLE
Dim pe32 As    PROCESSENTRY32
    
    hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS , 0 )
    If hSnap = -1 Then
        printf(Ex"スナップショットの作成に失敗したよ\n")
        Goto *owari
    End If
    
    pe32.dwSize = sizeof(PROCESSENTRY32)
    If Process32First(hSnap , pe32 ) = FALSE Then
        printf(Ex"プロセス無いよ\n")
        Goto *owari
    End If
    
    printf(Ex"| ID  |       名前       | スレ | 優先 |\n")
    printf(Ex"+-----+------------------+------+------+\n")
    
    Do
        printf(Ex"|%4d | %-16s | %4d | %4d |\n" , _ 
        pe32.th32ProcessID , pe32.szExeFile , pe32.cntThreads , _
            pe32.pcPriClassBase)
    Loop while(Process32Next(hSnap , pe32) <> FALSE)

*owari
    CloseHandle(hSnap)
exit(0)
で、

api_console.sbp(4) - "FOREGROUND_BLUE" はすでに定義されています
api_console.sbp(5) - "FOREGROUND_GREEN" はすでに定義されています
api_console.sbp(6) - "FOREGROUND_RED" はすでに定義されています
api_console.sbp(7) - "FOREGROUND_INTENSITY" はすでに定義されています
api_console.sbp(8) - "BACKGROUND_BLUE" はすでに定義されています
api_console.sbp(9) - "BACKGROUND_GREEN" はすでに定義されています
api_console.sbp(10) - "BACKGROUND_RED" はすでに定義されています
api_console.sbp(11) - "BACKGROUND_INTENSITY" はすでに定義されています

というエラーが発生してしまいます。

どうすればいいでしょうか?

vcrt71.sbp
http://www.geocities.jp/debu0510/basic/ ... 1_v423.zip


通報する
ページトップ
 記事の件名: Re: applicationの一覧
投稿記事Posted: 2016年11月09日(水) 19:26 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 189
住所: 東京都
おそらく"vcrt71.sbp"の中にFOREGROUND_BLUEなどがすでに定義されているのでは?
だから二重定義の理由でコンパイルエラーになります
FOREGROUND_BLUEの定義など削除すればよいと思います。


通報する
ページトップ
 記事の件名: Re: applicationの一覧
投稿記事Posted: 2016年11月10日(木) 16:41 
オフライン

登録日時: 2016年9月24日(土) 15:35
記事: 62
ありがとうございます


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke