Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: feargus am 09.12.02 - 09:07:04
-
Q1: Ich brauche nach einem CreateProcessA ein refresh vom Notesbildschirm. Hat jemand eine Idee wie das zu bewerkstelligen ist ?
Q2: Wer weiss wie ich unter OS/2 an die Bios Daten komme (REXX).
Hintergrund: Automatische Hard/Software Inventarisierung
Stand:
W32_Hardware API und WMI [OK] - wmint4 wird automatisch verteilt
W32_SOFTWARE [kein Refresh] -Auswertung von COM&EXE Files
OS/2 Software [OK] -Auswertung von COM&EXE Files
OS/2 Hardware [auslesen noch nicht möglich]
Public Sub ShellAndWait(Byval RunProg As String,Byval lpTitle As String)
Dim RetVal As Long
Dim proc As PROCESS_INFORMATION
Dim StartInf As STARTUPINFO
StartInf.cb = Len(StartInf)
startinf.wShowWindow=6
startinf.dwFlags = 6
startinf.lptitle=lpTitle
RetVal = CreateProcessA(0&, RunProg, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, StartInf, proc)
RetVal = WaitForSingleObject(proc.hProcess, INFINITE)
RetValue = TerminateProcess(proc.hProcess, 0&)
RetValue = CloseHandle(proc.hThread)
RetValue = CloseHandle(proc.hProcess)
End Sub