Fórum Solução que encontrei quot;Meu executavel já estar com 72 m #346547
24/09/2007
0
A solução que encontrei foi esta mais anda preciso de ajuda.
Selução: dividir as imagen JPG em 3 executavel cada um ficara com +ou-
20megas. Criei 2 executavel que só é executado atravez do executavel principal. (Explicado melhor: pragrama_principal =>pragrama_1 + pragrama_2.
Ajuda: O que quero e que quando o usuário arrasta o pragrama_principal
ou seja muda de posição no desktop e depois clicar no botão para abrir o
pragrama_1 ou pragrama_2 os mesmo abra na mesma posição em que o usuário deicho o pragrama_proncipal.
Selução: dividir as imagen JPG em 3 executavel cada um ficara com +ou-
20megas. Criei 2 executavel que só é executado atravez do executavel principal. (Explicado melhor: pragrama_principal =>pragrama_1 + pragrama_2.
Ajuda: O que quero e que quando o usuário arrasta o pragrama_principal
ou seja muda de posição no desktop e depois clicar no botão para abrir o
pragrama_1 ou pragrama_2 os mesmo abra na mesma posição em que o usuário deicho o pragrama_proncipal.
Cgm2k7
Curtir tópico
+ 0
Responder
Posts
24/09/2007
Cgm2k7
Veja os font
cilocar este codigo na inicialização do programa_1 e o 2
begin
if ParamStr(1) <> ´programa_1´ then begin
/ShowMessage(´Execute este programa através de Prog2.EXE´);
Halt; { Finaliza }
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
e este no evento onClick do programa_principal
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Erro: Word;
begin
Erro := WinExec(´programa_1.exe programa_1´, SW_SHOW);
if Erro <= 31 then
ShowMessage(´Erro ao executar o programa.´);
try
form1.Close;
finally
end;
end;
cilocar este codigo na inicialização do programa_1 e o 2
begin
if ParamStr(1) <> ´programa_1´ then begin
/ShowMessage(´Execute este programa através de Prog2.EXE´);
Halt; { Finaliza }
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
e este no evento onClick do programa_principal
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Erro: Word;
begin
Erro := WinExec(´programa_1.exe programa_1´, SW_SHOW);
if Erro <= 31 then
ShowMessage(´Erro ao executar o programa.´);
try
form1.Close;
finally
end;
end;
Responder
Gostei + 0
24/09/2007
Massuda
[quote:bac1291d88=´Moderação´][color=red:bac1291d88]Tópico bloqueado por Massuda
Tópico duplicado. Por favor, mantenha a discussão no tópico original...
http://forum.devmedia.com.br/viewtopic.php?t=90238[/color:bac1291d88][/quote:bac1291d88]
Tópico duplicado. Por favor, mantenha a discussão no tópico original...
http://forum.devmedia.com.br/viewtopic.php?t=90238[/color:bac1291d88][/quote:bac1291d88]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)