pq nao tah funcionando quando mando fazer isso form2.show;
pq com isso no OnCreate não ta aparecendo nda quando falo pra fazer Form2.Show ???
------------------------------------------------------------------------------------
if (FindWindow(´TApplication´,´Prog1´) <> 0) or
(FindWindow(´TfrmServer´,´Prog2´) <> 0) then
begin
Close;
Application.Terminate;
Exit;
end;
if UpperCase(Trim(lDir)) <> UpperCase(Trim(Application.ExeName)) then
begin
ReStartServer;
Close;
Exit;
end;
------------------------------------------------------------------------------------
alguem sabe se tem como fazer aparecer o Form2 ???
Valeuuuuuu
[size=18:b95e2f74ac][/size:b95e2f74ac]
------------------------------------------------------------------------------------
if (FindWindow(´TApplication´,´Prog1´) <> 0) or
(FindWindow(´TfrmServer´,´Prog2´) <> 0) then
begin
Close;
Application.Terminate;
Exit;
end;
if UpperCase(Trim(lDir)) <> UpperCase(Trim(Application.ExeName)) then
begin
ReStartServer;
Close;
Exit;
end;
------------------------------------------------------------------------------------
alguem sabe se tem como fazer aparecer o Form2 ???
Valeuuuuuu
[size=18:b95e2f74ac][/size:b95e2f74ac]
Akcom
Curtidas 0