1:
2:

uses ShellApi; 
ShellExecute(Handle, 'open', 'notepad.exe', '', nil, SW_SHOW);					

1:

WinExec('C:\Windows\notepad.exe', SW_SHOW);					

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:

{1. With Winexec } 

procedure ExecuteShellCommand(cmdline: string; hidden: Boolean); 
const 
  flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE); 
var 
  cmdbuffer: array [0..MAX_PATH] of Char; 
begin 
  GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer)); 
  StrCat(cmdbuffer, ' /C '); 
  StrPCopy(StrEnd(cmdbuffer), cmdline); 
  WinExec(cmdbuffer, flags[hidden]); 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ExecuteShellCommand('dir C:\ > c:\temp\dirlist.txt', True); 
end; 


{2. With Shellexecute } 

procedure ExecuteShellCommand(cmdline: string; hidden: Boolean); 
const 
  flags: array[Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE); 
var 
  cmdbuffer: array[0..MAX_PATH] of Char; 
begin 
  GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer)); 
  ShellExecute(0,'open',cmdbuffer, PChar('/c' + cmdline), nil, flags[hidden]); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ExecuteShellCommand('copy file1.txt file2.txt', True); 
end;