bem tenho o seguinte código:



o que eu queria fazer é o seguinte:

ao precionar este botão ele procura pelo arquivo "main.jpg", e se não acha ele mostra a mensagem: "arquivo não existe".

eu gostaria de fechar o programa, se não encotra-se o arquivo, mas se encotra executa o programa na linha seguinte. e ao executar o programa que o mesmo seja fechado.

para que a aplicação seja fecchada

não, não, não !!!!

é assim:



este é o programa "DEMO"

ele vai abrir o "TESTE.EXE".
depois que ele faz a verificação, da existencia do arquivo "main.jp", e se caso não encotre, ai sim o programa "DEMO" seria fechado.

Deu pra entender galera ??

procedure TForm1.Image2Click(Sender: TObject);
begin
If not (FileExists('main.jpg')) then
showmessage('Arquivo não existe') else
Winexec('teste.exe',SW_SHOWNORMAL);
Application.Terminate;
end;

@Churc

sim este script funciona, mas usar este application.terminate..

tipo, ele está fechando o programa mesmo que exista o arquivo MAIN.JPG,

a ideia era se o arquivo existir, o programa continuar o carregamento.

procedure TForm1.Image2Click(Sender: TObject);
begin
If not (FileExists('main.jpg')) then
begin
showmessage('Arquivo não existe');
Application.Terminate;
end
else
Winexec('teste.exe',SW_SHOWNORMAL);
end;

Obrigado Churc,
por dispor do seu tempo para ajudar !!!!
obrigado mesmo !!!