1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

function ExtractRes(ResType, ResName, ResNewName: string): Boolean;
var Res: TResourceStream;
begin
  Result:=False;
  Res:=TResourceStream.Create(Hinstance, Resname, PChar(ResType));
  try
    Res.SavetoFile(ResNewName);
    Result:=True;
  finally
    Res.Free;
  end;
end;

procedure ShellExecute_AndWait(FileName: string; params: string);
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize:=SizeOf(exInfo);
    fMask:=SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd:=GetActiveWindow();
    ExInfo.lpVerb:='open';
    lpFile:=PChar(FileName);
    lpParameters:=PChar(params);
    nShow:=SW_MINIMIZE;
  end;
  if ShellExecuteEx(@exInfo) then
  begin
    Ph:=exInfo.HProcess;
  end else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  while WaitForSingleObject(ExInfo.hProcess, 50)<>WAIT_OBJECT_0 do Application.ProcessMessages;
  CloseHandle(Ph);
end;					

1:
2:
3:
4:
5:
6:

  if ExtractRes('EXEFILE', <ID in RES-Datei>, <Stringvariable für Datei>) then
    if FileExists(<Stringvariable für Datei>) then
    begin
      ShellExecute_AndWait(<Stringvariable für Datei>, <Parameter>);
      DeleteFile(<Stringvariable für Datei>);
    end;					

1:

EXEFILE <ID> <Datei.exe>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
tr:TResourcestream;
NeueDatei:string;
begin
NeueDatei:='Datei.exe';
tr:=tresourcestream.create(hinstance,'EXEFILE',RT_RCDATA);
tr.savetofile(NeueDatei);
tr.free;
// falls es sich z.B. um EXE handelt, kann diese dann gleich gestartet werden
shellexecute(handle,'open',pchar(NeueDatei),nil,nil,sw_shownormal);
end;