كيفية تمرير قائمة من السريلات لاي برنامج

[cargem]

لدي مجموعة سريلات ل Nod32
اود صنع اداة تعمل على تمرير هذه السريلات للنود مع التأكد ان كان صالح ام لا لتمرير التالي وهكذا
لان العملية اليدوية مملة
ابحث عن الدوال المناسبة لتنفيذ العملية

[Agmcz]

السلام عليكم
شاهد هدا الموضوع
http://delphi4arab.net/forum/showthread.php?tid=1098

[cargem]

رائع جدا
لكن اذا كان هناك 2 edits
كيف الحل؟

procedure TForm1.Button1Click(Sender: TObject);
var Fr , Ed : THandle ; Text : String;
begin
Text := Edit1.Text ;
Fr := FindWindow('Notepad',nil);
Ed := FindWindowEx(Fr,0,'Edit',nil);
SetLength(Text,Max_Path);
SendMessage(Ed,WM_SETTEXT,Max_Path,longInt(@Text[1]));
end;

[mourad39]

استخدم برنامج
TNod-1.4.0.15-setup.exe
فهو يقوم بهذه العملية