SRL Archive - Delphi/FPC Help and Tutorials

Hey!
In short I want my program to run game executable's but I think because I am using the application handle it doesn't how can I get the user handle so the executable thinks it gets executed by a user for example?

procedure Run(Path:string);
var
   SEInfo: TShellExecuteInfo;
   ExitCode: DWORD;
   ExecuteFile: string;
begin
   ExecuteFile := Path;
   FillChar(SEInfo, SizeOf(SEInfo), 0);
   SEInfo.cbSize := SizeOf(TShellExecuteInfo);
   with SEInfo do begin
     fMask := SEE_MASK_NOCLOSEPROCESS;
     Wnd := Application.Handle;
     lpFile := PChar(ExecuteFile);
     nShow := SW_SHOWNORMAL;
   end;
   ShellExecuteEx(@SEInfo);
end;

Error.

I would deeply appreciate your help.

Maybe you should set your working directory to the directory of the file (you can set it in the TShellExecuteInfo)? And have you tried the regular ShellExecute?

I added this:
lpDirectory := PChar(ExtractFileDir(ExecuteFile)+'\');
and
lpDirectory := PChar(ExtractFileDir(ExecuteFile));

It doesn't work.
But you are right btw when I do it from the same directory it seems to work.