Duvida simples =/

[pedrokkklol 0]

bom eu queria tipo assim sei que é facil mais me confundi

 

em 1 projeto tem 1 edit e 1 botão se o edit tiver apagado quando eu clicar no botão ele vai falar como showmessage('o diretorio não pode estrar em branco')

e se estiver com o diretorio certo winexec ('minhaaplicação.exe',SW_SHOW); obrgiado :p

[splintercelldouble 0]

Duvida simples apenas sertifique-se:yes:

[luxfer 0]

Duvida simples apenas sertifique-se:yes:

 

WTF?!?!?

 

@topic

 

if Edit1.Text = '' then begin

ShowMessage('o diretorio não pode estrar em branco') ;

Exit;

end;

if Edit1.Text = 'diretorio certo' then

winexec ('minhaaplicação.exe',SW_SHOW);

 

Ou use um else como o Owner postou abaixo ↓

[~OwneR~ 8]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Isso?

------------

Não vi o post do luxfer ^_^

[brunoragk 0]

Pelo que eu sei, WinExec não funciona mais.

Use ShellExecute.

[Mestre_Vator 0]

É pouco utilizado hoje,e não vai mais funcionar nos próximos Win...

[pedrokkklol 0]

vlw all :P n vai ser assim que vai ficar vou colocar o shell execute e tudo :P mais era só uma duivda oque eu tava errando era

if Edit1.Text = '' then

ShowMessage('O diretorio não pode estrar em branco'') ; // tava colocando (;) aki =/

else

WinExec('minhaaplicação.exe,SW_SHOW);

 

vlw all :P n vai ser assim que vai ficar vou colocar o shell execute e tudo :P mais era só uma duivda oque eu tava errando era

if Edit1.Text = '' then

ShowMessage('O diretorio não pode estrar em branco'') ; // tava colocando (;) aki =/

else

WinExec('minhaaplicação.exe,SW_SHOW);

[brunoragk 0]

@ pedrokkklol

Declare ShellApi na uses antes de compilar!

 

// Se o campo estiverem em branco, mostra o erro…

if (Edit1.text = '') then

begin

Application.MessageBox('O diretorio não pode estrar em branco.','Erro!',MB_ICONError);

Edit1.Clear;

Edit1.Setfocus;

ShellExecute(handle,'open',PChar(minhaaplicação.exe), '','',SW_SHOWNORMAL);

end;