Execute program from Windows Temp folder?

[Grendelus]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

{execute the game}
WinExec('%WINDIR%\Temp\game.exe', SW_SHOW);

{end the application}
Application.Terminate;
end;

end.

I am trying to create a program (launcher) which opens an executable (game.exe) when it runs. Problem is that the game is located in the Windows Temp directory. Is there a way to execute it from there? Also how can I execute programs and wait for them to finish?

[paul_nicholls]

Hi,
perhaps this link will help you with executing a program and waiting for it to finish.

http://www.scalabium.com/faq/dct0050.htm

As for finding the windows temp folder name, I can't recall how to do that part.

cheers,
Paul

[Legolas]

GetTempPath should do the trick :)

[harrypitfall]

if you need delphi procedures...



Function GetTemporaryDirectory: String;
Var
lpBuffer: PChar;
Begin
lpBuffer := AllocMem(MAX_PATH + 1);
Try
GetTempPath(MAX_PATH, lpBuffer);
Result := Trim(StrPas(lpBuffer));
Finally
FreeMem(lpBuffer, MAX_PATH + 1);
End;
End;

Procedure Run(Operation, FileName, Parameters, Directory: String; ShowCmd: Integer; WaitTerminate: Boolean);
Var
Sei: TShellExecuteInfo;
Begin
FillChar(Sei, SizeOf(TShellExecuteInfo), 0);
Sei.cbSize := SizeOf(TShellExecuteInfo);
Sei.fMask := SEE_MASK_NOCLOSEPROCESS;
Sei.Wnd := Application.Handle;
Sei.lpVerb := PChar(Operation);
Sei.lpFile := PChar(FileName);
Sei.lpParameters := PChar(Parameters);
Sei.lpDirectory := PChar(Directory);
Sei.nShow := ShowCmd;
If Not (ShellExecuteEx(@Sei)) Then
Case Sei.hInstApp Of
SE_ERR_FNF: Raise Exception.CreateFmt('File "%s" not found', [FileName]);
SE_ERR_PNF: Raise Exception.CreateFmt('Path "%s" not found', [Directory]);
SE_ERR_NOASSOC: Raise Exception.Create('No associated program found');
ERROR_BAD_FORMAT: Raise Exception.Create('Invalid executable format');
SE_ERR_ACCESSDENIED: Raise Exception.Create('Access denied');
SE_ERR_DDETIMEOUT, SE_ERR_DDEFAIL, SE_ERR_DDEBUSY: Exception.Create('DDE transaction error');
Else
Raise Exception.Create(SysErrorMessage(GetLastError));
End
Else If WaitTerminate Then
WaitForSingleObject(Sei.hProcess, INFINITE);
End;

// example:
var Dir, FileName: String;
Begin
Dir := IncludeTrailingPathDelimiter(GetTemporaryDirectory );
FileName := Dir + 'GAME.EXE';
Run('open', FileName, '', Dir, SW_SHOWNORMAL, false);