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

عملت تطبيق توضيحي للاستفسار في المرفق
:confused: السؤال حول التعامل مع المكون DriveComboBox
مثلا في التطبيق المرفق عند اختيار المستخدم احدا من الاقراص
ويضغط على الرز تطبيق يتم تنفيذ أمر ما وليكن امر دوس(dos)
اقصد الشرط كيف يكون الزر(Button)

ربنا آتنا من لديك رحمه انك انت ارحم الراحمين

شيئ مثل هذا :

PHP كود :
var
  C: Char;
begin
  C := ' ';
  with DriveComboBox1 do
    if ItemIndex > -1 then
      C := PChar(Items[ItemIndex])^; // Result = C,D,..
  Caption := C;
end; 

SMP3 كتب :شيئ مثل هذا :

PHP كود :
var C: Char; begin C := ' '; with DriveComboBox1 do if ItemIndex > -1 then C := PChar(Items[ItemIndex])^; // Result = C,D,.. Caption := C; end;

شكرا اخي كانت اجابتك جميلة ومفيدة لكن عندي سؤال :confused: آخر
عن القيمة التي ترجع الى C
كيف استطيع تضمينها في امر اخر
قصدي مثل هذا الامر الذي يظهر الملفات المخفية امر بالدوس
attrib -r -a -s -h D:\*.* /s /d
كيف اجعل القيمة الناتجة C := PChar(Items[ItemIndex]) اي C
مكان D في مثال الدوس attrib -r -a -s -h D:\*.* /s /d
جربت كم من مرة
مثلا:

PHP كود :
var
  C: Char;
begin
 C := ' ';
  with DriveComboBox1 do
    if ItemIndex > -1 then
      C := PChar(Items[ItemIndex])^; // Result = C,D,..
  Caption := C     
  ShellExecute(Handle, nil, 'attrib -r -a -s -h '+PChar(C+':\*.* /s /d'),nil,nil,SW_SHOWNORMAL);
end; 

ربنا آتنا من لديك رحمه انك انت ارحم الراحمين

إقتباس :جربت كم من مرة

الكتابة من الناحية النظرية صحيحة .. لكن الكومبايلر سيفهم أن البرامتر الثالث FileName للدالة ShellExecute عبارة عن نوع String .. , لكن الأصح أن يكون من النوع PChar :

PHP كود :
ShellExecute(Handle, nil, PChar('attrib -r -a -s -h '+C+':\*.* /s /d'),nil,nil,SW_SHOWNORMAL); 

mami39

SMP3

mami39

SMP3