function ShellExecute(hWnd: LongInt; Operation, FileName, Parameters, Directory:
  PChar; ShowCmd: Integer): LongInt; external 'ShellExecuteA@shell32.dll stdcall';

const
  SW_SHOWNORMAL = 1;

begin
  ShellExecute(GetApplication.Handle, 'open', 'notepad.exe', '', '', SW_SHOWNORMAL);
end.