Einzelnen Beitrag anzeigen

Benutzerbild von kuba
kuba

Registriert seit: 26. Mai 2006
Ort: Arnsberg
552 Beiträge
 
Delphi XE7 Professional
 
#6

AW: ShellExecute Laufwerk Problem

  Alt 24. Dez 2015, 15:47
Mir ist nicht ganz klar, was Du möchtest.

Soll das Arbeitsverzeichnis des Programmes das Laufwerk des USB-Sticks sein?

Dann eventuell im Programm (FormCreate oder so) dashier ausprobieren:
Delphi-Quellcode:
...
  ChDir(ExtractFilePath(Application.ExeName));
... oder
  ChDir(ExtractFileDrive(Application.ExeName));
...
Im ersten Fall ist dann das aktuelle Verzeichnis des Programmes das Verzeichnis, in welchem sich die Exe befindet.

Im zweiten Fall ist das aktuelle Verzeichnis das Root-Laufwerk des USB-Sticks, auf dem sich die Exe befindet.

Danke für den Tip, mit Nr. 2 funktioniert es
Beim ShellExecute muss das Arbeitsverzeichnis durch "nil" ersetzt werden:

ShellExecute(handle, 'open', PChar(USBDrive.Drive+':\'+'usb.exe'), nil, nil, SW_NORMAL);

OnCreate der zu startenden Anwendung:

ChDir(ExtractFileDrive(Application.ExeName)); Super !!

kuba
Stefan Kubatzki
E=mc2

Geändert von kuba (24. Dez 2015 um 15:54 Uhr)
  Mit Zitat antworten Zitat