التعامل مع محتوى المكون drivecombobox

[mami39]

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







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

[SMP3]

شيئ مثل هذا :

PHP كود :

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


[mami39]

شيئ مثل هذا :

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; 


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

[SMP3]

جربت كم من مرة

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

PHP كود :

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