Aplicação MDI com aplicativos diferentes

[vms]

Olá pessoal,

é possivel criar uma aplicação em MDI usando aplicativos diferentes?

ex: tenho uma aplicação com o nome "Sistema" e varias outras aplicações como agenda, calculadora etc, todas desenvolvidas por mim. Tenho como abrir estas aplicações no meu sistema como se fosse Form fsMDIChild?

desde já agradeço.

[Pirambu!]

Tenta isso para abrir outro Execultavel.

ExecAndWait(LocaldoSistemaNoPC,'',SW_SHOW);

[Jhonas]

Tenta isso para abrir outro Execultavel.

ExecAndWait(LocaldoSistemaNoPC,'',SW_SHOW);

Pirambu!... faltou voce passar para ele a function ExecAndWait

voce tambem pode usar o shellExecute

Exemplos:

http://www.swissdelphicenter.ch/torry/showcode.php?id=93

abraço

[Douglas Soares]

Tenta isso para abrir outro Execultavel.

ExecAndWait(LocaldoSistemaNoPC,'',SW_SHOW);

Pirambu!... faltou voce passar para ele a function ExecAndWait voce tambem pode usar o shellExecute Exemplos: http://www.swissdelphicenter.ch/torry/showcode.php?id=93 abraço

Segue função ExecAndWait

function ExecAndWait(const FileName, Params: string;
  const WindowState: Word): boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
begin
  { Coloca o nome do arquivo entre aspas. Isto é necessário devido
    aos espaços contidos em nomes longos }
  CmdLine := '"' + Filename + '"' + Params;
  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do  begin
    cb := SizeOf(SUInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WindowState;
  end;
  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);

  { Aguarda até ser finalizado }
  if Result then begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Libera os Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

Abraços