Re: 起動アプリケーション名の取得

Article View: fj.lang.visualbasic

Article #1189

Back to fj.lang.visualbasic Previous Next

#1189

From: Sato Masahiro
Date: Wed, 15 Oct 1997 00:00

31 lines
1403 bytes

In article <01bcd87a$93fd6c00$e94b0896@upc104.ube-ind.co.jp>, 29673u@ube-ind.co.jp says...
>VB4.0$B$G8=:_(BWindows95$B>e$GF0$$$F$$$k%"%W%j%1!<%7%g%sL>$r<hF@$7$?$$$N$G$9$,J,(B
>$B$+$j$d$9$/65$($F$b$i$($J$$$G$7$g$&$+!)=PMh$^$7$?$i4JC1$JNc$H$+$,$"$l$P9,$$(B
>$B$G$9!#(B

 Windows95 $B$G$"$l$P!"(BKernel32.dll $B$G<BAu$5$l$F$$$k!!(BTool Help Library $B$r(B
$BD4$Y$F$_$F$O$$$+$,$G$7$g$&$+!#(B

$BNc(B: $B<B9T$5$l$F$$$k%b%8%e!<%k$N%U%!%$%kL>$rI=<((B
Dim hSnapshot As Long
Dim pe32 As PROCESSENTRY32
Dim hProcess As Long

hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
pe32.dwSize = Len(pe32)

If Process32First(hSnapshot, pe32) Then
    Do
        Debug.Print pe32.szExeFile
    Loop While Process32Next(hSnapshot, pe32)

End If

CloseHandle hSnapshot


 $B>\$7$/$O;29M=q$J$I$rEv$?$C$F$_$F$/$@$5$$!#(B

-- 
$B:4F#@59((B <masahiro@cij.co.jp>

Technical Details

Message-ID: <6215sn$7vt@cij-gw.ykhm.cij.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <01bcd87a$93fd6c00$e94b0896@upc104.ube-ind.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,4aade9ab54770b1d
X-Google-Attributes: gid105c2e,public
From: masahiro@cij.co.jp (Sato Masahiro)
Subject: Re: 起動アプリケーション名の取得
Date: 1997/10/15
Message-ID: <6215sn$7vt@cij-gw.ykhm.cij.co.jp>
X-Deja-AN: 280649840
References: <01bcd87a$93fd6c00$e94b0896@upc104.ube-ind.co.jp>
Organization: Computer Institute of Japan, Ltd.
Newsgroups: fj.lang.visualbasic

Reply to Parent Message