+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع محتوى المكون drivecombobox (/showthread.php?tid=5843)
التعامل مع محتوى المكون drivecombobox - mami39 - 08-01-2014
عملت تطبيق توضيحي للاستفسار في المرفق
:confused: السؤال حول التعامل مع المكون DriveComboBox
مثلا في التطبيق المرفق عند اختيار المستخدم احدا من الاقراص
ويضغط على الرز تطبيق يتم تنفيذ أمر ما وليكن امر دوس(dos)
اقصد الشرط كيف يكون الزر(Button)
ربنا آتنا من لديك رحمه انك انت ارحم الراحمين
التعامل مع محتوى المكون drivecombobox - SMP3 - 08-01-2014
شيئ مثل هذا :
PHP كود :
var
C: Char;
begin
C := ' ';
with DriveComboBox1 do
if ItemIndex > -1 then
C := PChar(Items[ItemIndex])^; // Result = C,D,..
Caption := C;
end;
التعامل مع محتوى المكون drivecombobox - mami39 - 09-01-2014
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;
ربنا آتنا من لديك رحمه انك انت ارحم الراحمين
التعامل مع محتوى المكون drivecombobox - SMP3 - 09-01-2014
إقتباس :جربت كم من مرةالكتابة من الناحية النظرية صحيحة .. لكن الكومبايلر سيفهم أن البرامتر الثالث FileName للدالة ShellExecute عبارة عن نوع String .. , لكن الأصح أن يكون من النوع PChar :
PHP كود :
ShellExecute(Handle, nil, PChar('attrib -r -a -s -h '+C+':\*.* /s /d'),nil,nil,SW_SHOWNORMAL);