Fechar Programa

[Yugi Moto]

bem tenho o seguinte código:

procedure TForm1.Image2Click(Sender: TObject);
begin
If not (FileExists('main.jpg')) then
showmessage('Arquivo não existe');

Winexec('teste.exe',SW_SHOWNORMAL);
Close;
end;

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.

[Erso]

para que a aplicação seja fecchada

Application.Terminate;

[Guest Visitante]

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

é assim:

procedure TForm1.Image2Click(Sender: TObject);
begin
If not (FileExists('main.jpg')) then
showmessage('Arquivo não existe');

Winexec('teste.exe',SW_SHOWNORMAL);
Close;
end;

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 ??

[Churc]

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;

[Yugi Moto]

@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.

[Churc]

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;

[Yugi Moto]

Obrigado Churc,

por dispor do seu tempo para ajudar !!!!

obrigado mesmo !!!