var AFile: String; begin AFile := 'C:\bat.bat'; ShellExecute(0, 'Open', PChar(AFile), nil, nil, SW_HIDE); ShowMessage('Ok!'); end;