(Resolvido) Ajudem um Inciante em delphi = )

[RogerioMOYANO]

Ola estaou tentando criar um programa que execute um programa altere o nome do arquivo executavel e o nome na barra titulo quando eu clico em um botao,mais eu gostaria que tal arquivo e barra titulo volta-se ao nome original. So alterando se eu abrise pelo botao. obrigado :rolleyes:

Editado Novembro 10, 2009 por Jonathan Queiroz

[Douglas Soares]

Declare a Unit: ShellApi

Coloque um botão no seu form e no Event OnClick coloque isso:

RenameFile(C:\Arquivos de Programas\Teste\ArquivoAntigo.exe, 'C:\Arquivos de Programas\Teste\NovoArquivo.exe');
ShellExecute(Handle, nil, Pchar('C:\Arquivos de Programas\Teste\NovoArquivo.exe'), nil, nil, SW_SHOWNORMAL);

Até aqui ele Renomeou e abriu o programa... vou ter que sair, depois posto o resto que sei se alguém já não tiver postado! falou

Editado Novembro 6, 2009 por Douglas_Soares

[Douglas Soares]

Para alterar o Caption faça um teste com o Firefox, exemplo:

ChangeWindowCaption('Ajudem um Inciante em delphi = ) - Fórum Script Brasil - Mozilla Firefox','O Firefox é meu!!!');

Abraços

[Douglas Soares]

Agora quando você fechar seu programa, feche o que você abriu e renomeie o arquivo novamente.

Coloque isso no Event OnClose do seu form:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var H:THandle;
begin
try
begin
H := FindWindow(nil,'O Firefox é meu!!!');
if H > 0 then
SendMessage(H,WM_CLOSE,0,0);
end;
except
end;
RenameFile('C:\Arquivos de Programas\Teste\NovoArquivo.exe', 'C:\Arquivos de Programas\Teste\ArquivoAntigo.exe');
end;

Abraços

Editado Novembro 6, 2009 por Douglas_Soares

[Douglas Soares]

Estranho, testei o ChangeWindowCaption aqui em casa, e não está funcionando mais... :wacko: :wacko: :wacko: , porem você pode tentar assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  MyHandle:=FindWindow(nil, 'Ajudem um Inciante em delphi = ) - Fórum Script Brasil - Mozilla Firefox');
  SetWindowText(MyHandle, 'O Firefox é meu!!!');
end;

Abraços

[RogerioMOYANO]

Muito obrigado Douglas você e fera ^^