Code:
shellexecute(handle, 'open', pchar(fn_prg2start), '', pchar(ExtractFileDir(fn_prg2start)), sw_normal);
for dos-boxes it's good to use 'sw_hide' so the window is hidden