Εκτέλεση εφαρμογών Delphi με παραμέτρους

Αν και ήταν πολύ πιο συχνή στις μέρες του DOS, τα σύγχρονα λειτουργικά συστήματα σας επέτρεψαν επίσης να εκτελέσετε παραμέτρους γραμμής εντολών σε μια εφαρμογή, ώστε να μπορείτε να καθορίσετε τι θα πρέπει να κάνει η εφαρμογή.

Το ίδιο ισχύει και για σας Δελφοί εφαρμογή, είτε πρόκειται για ένα εφαρμογή κονσόλας ή ένα με GUI. Μπορείτε να περάσετε μια παράμετρο από τη γραμμή εντολών στα Windows ή από το περιβάλλον ανάπτυξης στους Δελφούς, κάτω από το Εκτέλεση> Παράμετροι επιλογή μενού.

Για αυτό το σεμινάριο, θα χρησιμοποιήσουμε το παράθυρο διαλόγου παραμέτρων για να μεταβιβάσουμε τα επιχειρήματα της γραμμής εντολών σε μια εφαρμογή έτσι ώστε να είναι σαν να την εκτελούμε από την Εξερεύνηση των Windows.

ο ParamCount συνάρτηση επιστρέφει τον αριθμό των παραμέτρων που διαβιβάζονται στο πρόγραμμα στη γραμμή εντολών και ParamStr επιστρέφει μια καθορισμένη παράμετρο από τη γραμμή εντολών.

ο OnActivate ο διαχειριστής συμβάντων της κύριας φόρμας είναι συνήθως όπου υπάρχουν οι παράμετροι. Όταν εκτελείται η εφαρμογή, υπάρχει η δυνατότητα ανάκτησης.

Σημειώστε ότι σε ένα πρόγραμμα, το CmdLine μεταβλητή περιέχει μια συμβολοσειρά με τα επιχειρήματα της γραμμής εντολών που καθορίζονται κατά την εκκίνηση της εφαρμογής. Μπορείς να χρησιμοποιήσεις CmdLine για να αποκτήσετε πρόσβαση σε ολόκληρη τη συμβολοσειρά παραμέτρων που μεταφέρεται σε μια εφαρμογή

Ξεκινήστε ένα νέο έργο και τοποθετήστε το a Κουμπί ένα στοιχείο Μορφή. Στο κουμπί του Στο κλικ χειριστής συμβάντων, γράψτε τον ακόλουθο κώδικα:

διαδικασία TForm1.Button1Κλικ (αποστολέας: TObject);

ξεκινήσει

 Εμφάνιση μηνύματος (ParamStr (0));

τέλος;

Όταν εκτελείτε το πρόγραμμα και κάνετε κλικ στο κουμπί, εμφανίζεται ένα πλαίσιο μηνύματος με τη διαδρομή και το όνομα του προγράμματος εκτέλεσης. Αυτό μπορείτε να το δείτε ParamStr "λειτουργεί" ακόμα και αν δεν έχετε περάσει καμία παράμετρο στην εφαρμογή. αυτό συμβαίνει επειδή η τιμή του πίνακα 0 αποθηκεύει το όνομα αρχείου της εκτελέσιμης εφαρμογής, συμπεριλαμβανομένων των πληροφοριών διαδρομής.

Επιλέγω Παράμετροι από το Τρέξιμο και, στη συνέχεια, προσθέστε Προγραμματισμός των Δελφών στην αναπτυσσόμενη λίστα.

Σημείωση: Να θυμάστε ότι όταν μεταφέρετε παραμέτρους στην εφαρμογή σας, διαχωρίστε τα με διαστήματα ή καρτέλες. Χρησιμοποιήστε διπλά εισαγωγικά για να τυλίξετε πολλές λέξεις ως μία παράμετρο, όπως όταν χρησιμοποιείτε μεγάλα ονόματα αρχείων που περιέχουν κενά.

Το επόμενο βήμα είναι να χρησιμοποιήσετε το παράθυρο μέσω των παραμέτρων ParamCount () για να χρησιμοποιήσετε την τιμή των παραμέτρων ParamStr (i).

Αλλάξτε το πρόγραμμα χειρισμού συμβάντων OnClick του κουμπιού σε αυτό:

διαδικασία TForm1.Button1Κλικ (αποστολέας: TObject);

var

 j: ακέραιο;

beginfor j: = 1 προς το ParamCount κάνω

 Εμφάνιση μηνύματος (ParamStr (j));

τέλος;

Όταν εκτελείτε το πρόγραμμα και κάνετε κλικ στο κουμπί, εμφανίζεται ένα μήνυμα που διαβάζει "Delphi" (πρώτη παράμετρος) και "Programming" (δεύτερη παράμετρος).