delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف استرجع قيمة نصية او عددية من امر دوس عبر دلفي

وعليكم السلام ورحمة الله وبركاته
بكل بساطة استخدم ReadLn في تطبيق Console Smile

غير ذلك انظر:
http://www.delphi4arab.net/forum/showthr...p?tid=3266
http://www.delphi4arab.net/forum/showthr...p?tid=2879
غير ذلك وضح أكثر
بالتوفيق.

و عليكم السلام و رحمة الله و بركاته
إستخدم خاصية البحث :
تنفيذ أوامر الـ Dos , بالخيار Hide & تحميل ملف الناتج في MeMo مثلا :

PHP كود :
Uses
 ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0,Nil,Pchar('CMD'),Pchar('/c "Dir>DirInfo.txt"'),Nil,0);
 Memo1.Lines.LoadFromFile('DirInfo.txt');
end; 

راجع : العمل بالدالة ShellExecute

بالتوفيق,,

شكرا جزيلا اخواني تعلمت ما تيسر لكن لاحظت مشكلا في القيم المحصل عليها فمثلا قمت بتعويض DIR بـالامر tree فعوض خطوط ____ احصل على رموز و طلاسم

عوض الـ TMemo إستخدم المكون TTreeView [صورة: icon14.gif]

tf6m كتب :عوض الـ tmemo إستخدم المكون ttreeview

شكرا جزيلا على الفكرة السديدة ... لكن نود برمجة طريقة قادرة على اسقبال اغلب اوامر الدوس !!!

'لكن نود برمجة طريقة قادرة على اسقبال اغلب اوامر الدوس !!!'
u u i = إستخدم مخيلتك ! , بالتوفيق,,

ok لقد حللت مشكل treeview لكن مشكل الطلاسم لازال مطروحا
الكود سورس memo+treeview+timer+button

كود :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,strutils, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    TreeView1: TTreeView;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation
uses shellapi;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0,Nil,Pchar('CMD'),Pchar('/c "e:\ >DirInfo.txt"'),Nil,0);
 Memo1.Lines.LoadFromFile('DirInfo.txt');
 memo1.Text:='';
  ShellExecute(0,Nil,Pchar('CMD'),Pchar('/c "tree >DirInfo.txt"'),Nil,0);
 Memo1.Lines.LoadFromFile('DirInfo.txt');
 if not timer1.Enabled then
 TreeView1.LoadFromFile('DirInfo.txt');

end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
end;

end.

'لكن مشكل الطلاسم لازال مطروحا ' , مثال (.) , مسألة الـ UniCode
gStr = الرموز المسموح بها .
Tmp = الـ Line المسترجع بـ Read .
بالتوفيق,,

karamofweb

kachwahed

TF6M

karamofweb

TF6M

karamofweb

TF6M

karamofweb

TF6M