If your running application has at least one window which is defined on
startup and never gets destroyed, you can do a simple check. The example
below assumes that your window has title "BLAH-BLAH-BLAH":
my $CheckAlreadyRun = Win32::GUI::FindWindow('', 'BLAH-BLAH-BLAH');
if ($CheckAlreadyRun) {
Win32::GUI::Show($CheckAlreadyRun);
Win32::GUI::SetForegroundWindow($CheckAlreadyRun);
exit;
}
In my example it just shows the window which is already exists. But you
can do and error popup or whatever.
Regards,
_____
Ilya Bandorin
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
rpnoble
Sent: Saturday, June 14, 2008 3:30 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] detecting a second version of my app
How can i detect a 2nd launch of my application, popup an error message
and
then exit?
--
View this message in context:
http://www.nabble.com/detecting-a-second-version-of-my-app-tp17833771p17
833771.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.
------------------------------------------------------------------------
-
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
=========================================================
Ce message et toutes les pieces jointes (ci-apres le "message")
sont confidentiels et susceptibles de contenir des informations
couvertes par le secret professionnel. Ce message est etabli
a l'intention exclusive de ses destinataires. Toute utilisation
ou diffusion non autorisee interdite.
Tout message eletronique est susceptible d'alteration. La SOCIETE GENERALE
et ses filiales declinent toute responsabilite au titre de ce message
s'il a ete altere, deforme falsifie.
=========================================================
This message and any attachments (the "message") are confidential,
intended solely for the addressees, and may contain legally privilegedxi
information. Any unauthorised use or dissemination is prohibited.
E-mails are susceptible to alteration. Neither SOCIETE GENERALE nor any
of its subsidiaries or affiliates shall be liable for the message
if altered, changed or falsified.
=========================================================
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
