डेल्फी

Question

में मेनफॉर्म की ऑनशो घटना से निकासप्रोसेज मेरे पास एक ऐसा एप्लिकेशन है जो स्टार्टअप पर कुछ शर्तों की जांच करता है और मुख्य फॉर्म के ऑनशो ईवेंट में बाहरी प्रोग्राम लॉन्च करता है। समस्या यह है कि यदि बाहरी प्रोग्राम लॉन्च करते समय कोई त्रुटि होती है, तो मैं चाहता हूं कि एप्लिकेशन तुरंत समाप्त हो जाए। लेकिन वहाँ उस के साथ एक मुद्दा में कि EurekaLog मेरी अपवाद लग जाती है और किसी भी तरह Application.Teminate के लिए सभी कॉल और किसी भी अन्य सामान्य बंद तरीकों को नकारने से वहाँ संदेश पाश बाधित है।

तो मेरा प्रश्न यह है कि क्या यह स्थिति मौजूद होने पर तुरंत मेरे आवेदन को समाप्त करने के लिए एक्जिटप्रोसेस सबसे अच्छा मार्ग होगा?

Answer 1

समय OnShow करके निकाल दिया गया है, तो आप बहुत दूर कार्यक्रम में निर्धारित करने के लिए है कि आप नहीं है वास्तव में कार्यक्रम चलाना चाहते हैं। आपको जल्द ही यह दृढ़ संकल्प करना चाहिए। OnShow यह तय करने का स्थान नहीं है कि फ़ॉर्म नहीं दिखाना चाहिए।

यह वह चीज है जो आपको मुख्य फॉर्म बनाने से पहले जांचनी चाहिए। अपने चेक को डीपीआर फ़ाइल में रखें, और यदि आप यह निर्धारित करते हैं कि प्रोग्राम नहीं चलाना चाहिए, तो बस exit पर कॉल करें।

begin 
    Application.Initialize; 
    if not ApplicationShouldReallyStart then 
    exit; 
    Application.CreateForm(TMainAppForm, MainAppForm); 
    Application.Run; 
end. 

ApplicationShouldReallyStart के अपने कार्यान्वयन को भरें। (और यह वास्तव में इन-लाइन नहीं डीपीआर फ़ाइल में एक अलग समारोह होना चाहिए, आईडीई अगर begin भ्रमित हो जाता है -।। डीपीआर फ़ाइल में end ब्लॉक बहुत जटिल हो जाता है)

तरफ से

, ExitProcess कॉल नहीं करते । इसके बजाय Halt पर कॉल करें। HaltExitProcess कहता है, लेकिन यह भी इकाई को अंतिम रूप देने वर्गों और अन्य डेल्फी विशेष प्रक्रिया बंद कार्य कहता है।

Answer 2

बेहतर होगा कि तुम खिड़की करने के लिए एक wmClose संदेश भेजें। अन्यथा आपके पास फॉर्म में भेजने के कारण परेशानी में आने का एक बड़ा मौका है।

Answer 3

मैं एक सिद्धांत का परीक्षण करने के लिए एक छोटे से आवेदन लिखा था और यहाँ मैं क्या सुझाव है कि है।

कॉल बंद विधि।

निम्नलिखित उदाहरण इकाई D2009 में कोई त्रुटि के बिना एप्लिकेशन को बंद कर देती है।

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs; 

type 
    TForm1 = class(TForm) 
    procedure FormShow(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    close; 
end; 

end. 

Answer 4

सिस्टम के साथ के खिलाफ यह नहीं है! आप बस चीजों के बीच में मर नहीं सकते हैं। यदि आप मरना चाहते हैं तो इसे नियमों के भीतर करें - WM_CLOSE या शायद अपनी खुद की दिनचर्या जो कहती है कि यह क्यों मर रहा है और फिर WM_CLOSE भेजता है।

Answer 5

जबकि मैं यहां रोब केनेडी से पूरी तरह से सहमत हूं, मैं यह ध्यान रखना चाहता हूं कि आप त्रुटि संवाद व्यवहार को नियंत्रित करने के लिए यूरेकालॉग की दिनचर्या का उपयोग कर सकते हैं। उदाहरण के लिए:

uses 
    ExceptionLog, ECore; 
... 
begin 
    ForceApplicationTermination(tbTerminate); 
    // ... <- Bad code goes there 
end; 

इस तरह, आवेदन सही त्रुटि संवाद दिखाने के बाद बंद कर दिया जाएगा।