Trexei Proti Fora?

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Trexei Proti Fora?

Δημοσίευση από Valerov » 13 Ιουν 2003 23:17

Prota ap ola thelo na sas parakaleso prin me kanete ban gia ta polla post pou kano, na me eidopoiisete :oops:

Sinexizo me to problima mou: Mporei kapoios na proteinei mia texniki gia na mporo na elegxo an ena programma pou eftiaksa trexei proti fora? Me metabliti den mporo na to kano giati otan to programma termatizei i metabliti xanei to periexomeno tis. Ti mporo na kano? Yparxei tipos metablitis pou na min xanei pote to periexomeno tis? Auto apokleietai...
Ok. Perimeno Apantisi.
:: Always Dive With A Partner ::

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

Trexei Proti Fora?

Δημοσίευση από agrippas » 14 Ιουν 2003 00:57

α. τρόπος (registry)

Κώδικας: Επιλογή όλων

Private Sub Form_Load()
    Dim checking As String
    checking = GetSetting(App.Title, "checking", "FirstTimeRun", "nai")
    If checking = "nai" Then SaveSetting App.Title, "checking", "FirstTimeRun", "oxi"
    MsgBox checking, vbExclamation 'gia na to deis mprosta sou gia dokimh
End Sub
Το "nai" ή "oxi" θα γραφτεί στο κλειδί HKEY_CURRENT_USER\Software\VB and VBA Program Settings\onoma project

β. τρόπος

Τσεκάρεις για μια υποτιθέμενη μεταβλητή σε κάποιο αρχείο. (open, κλπ...). Αν τη βρεις διάφορη του "" τότε έχει τρέξει. Αν δεν τη βρεις, δεν έχει ξανατρέξει το πρόγραμμα και τη γράφεις τότε.

Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Trexei Proti Fora?

Δημοσίευση από Valerov » 14 Ιουν 2003 18:06

thanx agrippas auto akribos ithela. xrisimopoiisa ton a tropo me registry.
:: Always Dive With A Partner ::

Άβαταρ μέλους
Bugman
Δημοσιεύσεις: 362
Εγγραφή: 01 Ιούλ 2003 20:39
Τοποθεσία: Πρέβεζα
Επικοινωνία:

Trexei Proti Fora?

Δημοσίευση από Bugman » 03 Ιούλ 2003 01:08

Advanced PrevInstance
'Code by Adam Verwijs
Const ERROR_ALREADY_EXISTS = 183&
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim hMutex As Long
'Try to create a new Mutex
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
'Did the mutex already exist?
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
'Clean up
ReleaseMutex hMutex
CloseHandle hMutex
'More than one instance detected
MsgBox "More than one instance"
End
Else
'form load code
End If
End Sub

Άβαταρ μέλους
Bugman
Δημοσιεύσεις: 362
Εγγραφή: 01 Ιούλ 2003 20:39
Τοποθεσία: Πρέβεζα
Επικοινωνία:

Trexei Proti Fora?

Δημοσίευση από Bugman » 03 Ιούλ 2003 01:14

που βρήκα το παραπάνω:
http://www.mentalis.org/agnet/apiguide.shtml
900 functions του API των Windows
με παραδείγματα!
Άντε και καλό προγραμματισμό!

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης