hilpers


  hilpers > microsoft.* > microsoft.german.entwickler.dotnet.vb

 #1  
31.03.2005, 15:59
Ali Ramezani
Hallo NG,

Was mach ich hier falsch?

Vielen Dank

Grüße

Private Function pGetProzesse() As ArrayList

Dim MyProcesses As New ArrayList

Dim hServer As IntPtr = IntPtr.Zero

Dim pInfo As IntPtr = IntPtr.Zero

Dim pInfoSave As IntPtr = IntPtr.Zero

Dim ProzInfo As WTSProcessInfo

Dim pCount As Integer

Dim version As Integer = 1

Dim iPtr As Int32



hServer = WTSOpenServer("S-TS1")

If WTSEnumerateProcesses(hServer, 0, version, pInfo, pCount) Then

pInfoSave = pInfo

For ii As Integer = 1 To pCount

ProzInfo = Marshal.PtrToStructure(pInfo, GetType(WTSProcessInfo))

ProzInfo = CType(Marshal.PtrToStructure(pInfo, GetType(WTSProcessInfo)),
WTSProcessInfo)

iPtr = pInfo.ToInt32 + Marshal.SizeOf(ProzInfo)

pInfo = CType(CObj(iPtr), IntPtr) </////////////////////---- Diese
Umwandlung ist nicht korrekt..../////////////////////

Next

End If

WTSCloseServer(hServer)

End Function
 #2  
31.03.2005, 16:13
Herfried K. Wagner [MVP]
Hallo Ali!

"Ali Ramezani" <aliram_nospam_> schrieb:
> pInfo = CType(CObj(iPtr), IntPtr) </////////////////////---- Diese
> Umwandlung ist nicht korrekt..../////////////////////


\\\
pInfo = New IntPtr(iPtr)
///
 #3  
01.04.2005, 06:11
Ali Ramezani
Danke. Es funktioniert.
:-)


"Herfried K. Wagner [MVP]" <hirf-spam-me-here> schrieb im Newsbeitrag
news:3356
[..]
Ähnliche Themen
Problem mit Konvertierung zu integer

Hallo, wie kann man z.B. einen Wert '16,' in 16 konvertieren? cast(spalte as integer) arbeitet hier leider nicht. Die Spalte in der DB ist vom Typ varchar, es stehen aber...

Suche konvertierung Integer / Long in 2Byte / 4Byte String

Hallo eine Byte Variable kann ich mit chr$(x) in einen String konvertieren und mit ASC daraus wieder einen Integer machen nur wie geht das elegant mit Integer in Word (2...

Konvertierung einer boolschen Bedingung in einen Integer-Ausdruck

Hallo, ich habe in SQL häufiger folgendes Problem: ich muss das Ergebnis einer Bedingung innerhalb eines Ausdrucks verwenden. Also vom Prinzip her: DECLARE @flag AS BIT SET...

Konvertierung in Integer

Hallo NG, ich habe gleich noch eine Frage. Sie betrifft die zahlreichen Konvertierungsmöglichkeiten. Welche sollte man wann anwenden? Werden die VB-spezifischen Funktionen...


Alle Zeitangaben in WEZ. Es ist jetzt 03:37 Uhr. | Privacy Policy