انشاء ملف Config و كيفية الاتصال به

[AbdouProg]

اخي الاجابة كانت حسب السؤال فلم تذكر نوع قاعدة البيانات وسالت عن استخدام ملف Config
بالنسبة للتصال بقاعدة بيانات Ingres باستخدام ODBC الطريقة نفسها ابحث بالمنتدى عن كلمة ODBC

السلام عليكم اخي عبد العزيز

بالنسبة للاتصال بقاعدة بيانات ingres عن طريق  ODBC اعرف الاتصال بها و برنامجي يعمل بامتياز ولكن
برنلمجي لا يعمل الا ادا كان التطبيق المبرمج ب   ingres مفتوج اي يجب تظهر  النافدتين المبينتان في الصورة (IIGCN) او نقوم تنفيد ingstart المبين في الشكل

[محمد عبد العزيز]

كود :

او نقوم تنفيد ingstart المبين في الشكل

إذن ليقم برنامجك بتنفيذ ingstart قبل الاتصال.

[AbdouProg]

كود :

او نقوم تنفيد ingstart المبين في الشكل

إذن ليقم برنامجك بتنفيذ ingstart قبل الاتصال.

السلام عليكم

و كبف يتم دالك

[محمد عبد العزيز]

ShellExecute
http://delphi4arab.net/forum/showthread.php?tid=2173

[AbdouProg]

ShellExecute
http://delphi4arab.net/forum/showthread.php?tid=2173

السلام عليكم اخي عبد العزيز
و الله ياخي سبق لي و ان جربت هده الطريقة و فعلا هي تعمل و لكن المشكلة هو ان النافدة المنبتقة عند الاتصال بها عن طريق برنامج الدالفي يجب تنفدها بالزر start كما هو موضح في الصورة
وكدالك استعملت طريقة وضع ملف التنفيد في Démarrage (win7) و لكن نفس المشكل
و الله لقد ارهقني هدا المشكل كثيرا اثمنى من الزملاء مساعدتي في ايجاد الحل

[Agmcz]

السلام عليكم
يمكنك الضغط على زر "Start" بعد التنفيذ بكل سهولة
ألق نظرة هنا..
how to get HWND after shellExecute
Clicking a button in another application
Click on a button of another Application

[محمد عبد العزيز]

تعلم كيف تتعامل مع البرامج الخارجيّة

[AbdouProg]

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
استعملت هده الطريقة و لكنها لم تمشي معي ربما لم افهم جيدا الكود
اولا قمت بانشاء ملف اسمه  gest.bat و يختوي بداخله على   ingstart وقمت بالاتصال به عن طريق الدالفي ولكن لم يقوم بتنفيد ingstart

كود :

procedure TFG.FormActivate(Sender: TObject); begin ShellExecute(Application.Handle, 'Open', PChar(GetEnvironmentVariable('ComSpec')), '/K C:\Gestion\Gest.bat', 'C:\Gestion\', SW_SHOW); end;

[AbdouProg]

لم افهم هدا الدرس نهائيا
تعلم كيف تتعامل مع البرامج الخارجيّة

[Agmcz]

السلام عليكم
هذا يلبي طلبك

PHP كود :

uses
  ShellAPI;

procedure ClickButton(WindowName, WindowCaption, ControlName, ControlCaption: PChar);
var
  hParent, hControl: HWND;
begin
  hParent := 0;
  hControl := 0;
  hParent := FindWindow(WindowName, WindowCaption);
  try
    BringWindowToTop(hParent);
    Application.ProcessMessages;
    hControl := FindWindowEx(hParent, 0, ControlName,
      ControlCaption);
    try
      SendMessage(hControl, BM_CLICK, 0, 0);
    finally
      hControl := 0;
    end;
  finally
    hParent := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'Open', 'C:\Target.exe', nil, nil, SW_SHOWDEFAULT);
  //Sleep(100);
  ClickButton(nil, 'Ingstart', nil, 'Start');
end;