اجرا کردن برنامه توسط برنامه دیگر

[aleas2]

دوستان بنده با این کد

Call Shell("C:\Users\elyas\Desktop\new\p.exe")

برنامه رو اجرا میکنم ولی وقتی اجرا میشه این پیغام هارو میده

104513104514

و باقی خطا های Adodc رو میده چکار کنم؟


ضمنا وقتی خودم دستی میرم تو مسیر برنامه و برنامه اجرا میکنم فقط پیغام همین کامپونت اولی رو میده که میخوام هیچ خطایی اصلا نده چکار کنم؟

[vbhamed]

سلام

در سطح سيستم ويندوز يه چيزي داريم به نام دايركتوري جاري، يعني پوشه اي كه پوشه جاري سيستم هست و مي‌تونه تغيير كنه، مثلا وقتي ويژوال بيسيك رو اجرا مي‌كنيد پوشه خودش ميشه پوشه جاري سيستم

اون برنامه شما هم مسير ديتابيس رو تنظيم نمي‌كنه بلكه ديتابيس رو بدون مسير براش گذاشتيد كه از پوشه خودش يعني كنار فايل exe بخونه اما اين وقتي هست كه وارد همون پوشه بشيد و برنامه رو از توي همون پوشه اجرا كنيد و به اينصورتي كه شما نوشتيد برنامه دنبال فايل ديتابيس تو پوشه جاري سيستم مي‌گرده

اما راهش، پوشه جاري سيستم رو عوض مي‌كنيم
ChDrive "c:\"
ChDir "\Users\elyas\Desktop\new"

Call Shell("C:\Users\elyas\Desktop\new\p.exe")

ChDrive درايو جاري و ChDir پوشه جاري درايو جاري رو عوض مي‌كنه
البته بهتر اينه كه داخل اون برنامه p.exe با استفاده از app.path مسير فايل p.exe رو بدست بياريد و كنترل ديتا رو طبق اون مسير دهي كنيد، نمونه مثال زير رو ببينيد
Data1.DatabaseName = Replace(App.Path & "\db\error.mdb", "\\", "\")

در مورد سؤال دومتون هم مشخصه كه كنترل رجيستر شده نيست (نسخه دمو هست) و بايد اينكار انجام بشه

[aleas2]

ممنون از راهنمایتون حق با شما بود
مشکل پیغام های مربوط به Adodc رفع شد ولی با پیغام
104515

که مربوط به کنترل HexUniControls هسته چکار کنم؟ هر چی گشتم کرک هچی براش ندیدم
الان قبل اجرا حتما باید ok زد چکار کنم این پیغام هم ظاهر نشه؟

[vbhamed]

سلام
از كامپوننت قوي و معروف Codejock يا كامپوننت رايگان Timosoft استفاده كنيد

[aleas2]

این برنامه رو قبلا نزدیک دوماه نوشتم الان بخوام کنترل هاشو عوض کنم کلی وقت میبره راه حل دگه ای وجود نداره مثلا به محض اینکه این پیغام اجرا شد ok بزنه؟

[vbhamed]

سلام

اگر هم باشه اصلا مناسب نيست، ممكنه يه موقع عمل نكنه يا روي برنامه ديگه اي Enter بزنه و ...
چند تا از اين كنترل در چند تا فرم داريد ؟

[aleas2]

بیش از 50 کنترل text با نام های متفاوت و کل پروژه یک فرم بیشتر نداره

و برنامه ام روی صفحات وب کار میکنه

و اینکه اگر کنترل تغییر بدم محتویاتش با کنترل HexUniControls یکی نیست همانطور که دوتا کنترل
text1HexUniControls .Text = WebBrowser2.Document.Body.innerHTML
با
RichTextBox1.Text = WebBrowser2.Document.Body.innerHTML
محتویات این دو تکست اگر در یک دستور if قرار بدین میگه محتویات یکی نیست درصورتی هردو از یک سایت کد دریافت کردن

نمیدونم منظورمو متوجه شدین یا نه؟



ضمنا" اگر لینک دانلود کامپونت Timosoft دارین ممنون میشم بذارین؟این کنترل کرک که نداره بعد از مدتی غیرفعال بشه؟

[vbhamed]

سلام
تو سايتش كه زده Free
http://www.timosoft-software.de/downloads/