Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Problem beim benutzen von CreateProcessA und dem Arbeitsverzeichnis

Frage Entwicklung VB for Applications

Mitglied: miniversum

miniversum (Level 3) - Jetzt verbinden

15.10.2008, aktualisiert 10:18 Uhr, 3132 Aufrufe, 1 Kommentar

Hallo
Ich arbeite mit einem Excel 2003 unter Windows xp sp3.
In einem Excelmakro möchte ich ein Externes Programm starten und warten bis dieses beendet ist.
Das mache ich mit diesem Teil des Codes (nur mal der relevante Teil). Soweit funktioniert das auch.
01.
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, _ 
02.
ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, _ 
03.
ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, _ 
04.
ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _ 
05.
ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, _ 
06.
lpProcessInformation As PROCESS_INFORMATION) As Long 
07.
Private Const NORMAL_PRIORITY_CLASS = &H20& 
08.
 
09.
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 
10.
 
11.
 
12.
Sub ShellAndWait(ByVal Filename As String) 
13.
Dim RetVal As Long 
14.
Dim proc As PROCESS_INFORMATION 
15.
Dim StartInf As STARTUPINFO 
16.
 
17.
StartInf.cb = Len(StartInf) 
18.
 
19.
'Angegebenes Programm starten 
20.
RetVal = CreateProcessA(0&, Filename, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, StartInf, proc) 
21.
 
22.
'Das eigene Programm anhalten, bis das fremde beendet wurde 
23.
RetVal = WaitForSingleObject(proc.hProcess, INFINITE) 
24.
RetVal = CloseHandle(proc.hProcess)
Mein Problem ist nun, dass das aufgerufene Programm als Arbeitsverzeichnis "Eingene Dateien" verwendet. Wie kann ich das ändern?
Ichhabe schon versucht ihm das Verzeichnis des Programms als "lpCurrentDirectory" mit zu übergeben. Das bekomme ich aber einfach nicht hin. Weder direkt als String "C:\Verzeichnis" (führt zu einem Fehler, ist auch klar, war ein Versuch), noch als StrPtr("C:\Verzeichnis") (Programm startet einfach garnicht, Keine Fehlermeldung).
Meine Suche im Internet ergab auch keine Lösung. Hat das schonmal jemand gemacht und kann mit helfen?

miniversum
Mitglied: miniversum
15.10.2008 um 10:18 Uhr
Hat sich erledigt.
Bei der Funktionsdeklaration kann man den Parameter "lpCurrentDirectory" nicht nur as Long sondern auch as String angeben. Danach ist eine Direkte Zuweisung als String möglich.
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
Authentifizierte Benutzer in Gruppe Benutzer auch auf Server (11)

Frage von KMUlife zum Thema Windows Userverwaltung ...

Windows 10
gelöst Benutzer verschwunden (11)

Frage von voggfritz zum Thema Windows 10 ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (31)

Frage von McLion zum Thema Router & Routing ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (24)

Frage von ahstax zum Thema Visual Studio ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Festplatten, SSD, Raid
gelöst Raidcontroller funktioniert nur, wenn unter Legacy-Boot gestartet wird (14)

Frage von DerWoWusste zum Thema Festplatten, SSD, Raid ...