Fórum como executar uma programa feito em Clipper via Delphi #240087

Declare dentro de
[b:a258429874]interface[/b:a258429874]
[b:a258429874]Uses [/b:a258429874]
ShellApi


[b:a258429874]Public[/b:a258429874]

procedure ExecutaApp(Nome,State,NomeExec,Path:Pchar;Estado:Integer


[b:a258429874]implementation[/b:a258429874]

procedure TFrmPrin.ExecutaApp(Nome,State,NomeExec,Path:Pchar;Estado:Integer);
//
// Executa um aplicativo somente se ele não estiver aberto, caso
// contrário apenas chama-o
//
// Valores para Estdo: SW_SHOWNORMAL Janela em modo normal
// SW_MAXIMIZE Janela maximizada
// SW_MINIMIZE Janela minimizada
// SW_HIDE Janela Escondida
//
// Veja um exemplo de como chamar a calculadora do Windows
//
// ExecutaApp(´CALCULADORA´,´OPEN´,´CALC.EXE´,´C:\WINDOWS´,8);
//
// Onde ´CALCULADORA´ é o nome da janela do aplicativo
//
var
TheWindows: HWND;
begin
theWindows := FindWindow(NIL,Nome);
if TheWindows <> 0 then
begin
SetForegroundWindow(TheWindows)
end
else
begin
if (Estado > 3) or (Estado < 1) then
begin
Estado := 1;
end;
ShellExecute(Application.Handle,State,NomeExec,NIL,Path,Estado);
end;
end;


este é o Procedimento ...
depois é vc criar um botão e com evento OnClick associando o evento ao procedimento ex:


procedure TFrmPrin.CalculadoraClick(Sender: TObject);
begin
ExecutaApp(´CALCULADORA´,´OPEN´,´CALC.EXE´,´C:\WINDOWS´,8);
end;

na resposta anterior o Codigo apareceu com Incones o correto é:
onde apareceu o 8) o correto seria o nº 8

Olá Code, eu já tinha editado sua mensagem para tal visualização logo após seu envio.

Pela msg de erro do Clipper o problema deve ser que o programa EXE está sendo executado, mas não está achando os arquivos DBFs.

Tenha certeza que voce está no diretório do programa antes de chamar o EXE. Isso pode ser feito com um simples aqrquivo BAT

CD \PROGCLIP
PROGCLIP
CD \

Lembre-se que programas DOS não se dão muito bem com nomes longos, prefira instalar o PROGCLIP em um diretorio com 8.3...