[[mzd]]

попробуй это:
PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT);
VAR
 SI : TSTARTUPINFO;
 P  : TPROCESSINFORMATION;
BEGIN
FILLCHAR( SI, SIZEOF( SI ) , 0 );
WITH SI DO BEGIN
 CB := SIZEOF( SI);
 DWFLAGS := STARTF_USESHOWWINDOW;
 WSHOWWINDOW := 4;
END;
APPLICATION.MINIMIZE;
CREATEPROCESS(NIL,'NOTEPAD.EXE',NIL,NIL,FALSE,CREATE_DEFAULT_ERROR_MODE,NIL,NIL,SI,P);
WAITFORSINGLEOBJECT(P.HPROCESS,INFINITE);
APPLICATION.RESTORE;
END;