[SOLVED]cd before TProcess execute?

[ShungFeng]

Hello!

I am running Windows 10. I am trying to execute a command-line application (which simple outputs a text file) which is inside a folder in the current user's home folder (C:\Users\*\). On one computer, the following works fine:

Code: Pascal  [Select][+][-]

1.   AProcess := TProcess.Create(nil);
2.   AProcess.Executable := 'C:\Windows\System32\cmd.exe';
3.   AProcess.Parameters.Add('/c');
4.   AProcess.Parameters.Add('C:\Users\' + Username + '\MyFolder\App.exe >> C:\Users\' +
5.     ComputerUsername + '\MyFolder\text_output.txt');
6.   AProcess.Options := [poWaitOnExit];
7.   AProcess.Execute;  

However, on another computer, the program will not run, as access is denied.

A manual solution is to change directory to MyFolder first and then run the program from the command line:

App.exe >> text_output.txt

So my question is: how can I cd to MyFolder and then run execute TProcess?

Thanks!

[eljo]

https://www.freepascal.org/docs-html/rtl/sysutils/setcurrentdir.html

[jamie]

One of your problems is that you are hard coding the paths to the user folders etc..

Not all computers have the same user folders.

my apps write to the user space and they all work from one pc to another but I don't hard code the names.

GetUserDir

and
GetAppConfigDir

functions.
look them up..

[trev]

Be aware that the directory returned by GetAppConfigDir is not correct for macOS as it treats macOS as if it was Linux/FreeBSD/Solaris.

See this Wiki article for a cross-platform version which complies with the Apple Guidelines for macOS.

[ShungFeng]

Thanks eljo.

[jamie]

Well, I suspect he'll have more issues later one

I used to do path hard coding and it is really a pain to keep up with MS and their games

For example. He should be using GetWindowsDIR not hardcoding it..

Etc. and so on.

[PascalDragon]

So my question is: how can I cd to MyFolder and then run execute TProcess?

Use the CurrentDirectory property of TProcess before starting the process.