المشاركات : 35
المواضيع 12
:
: 0
الإنتساب : Mar 2012
السلام عليكم
اواجه مشكله في عمل برنامج عندما احمل شيء الى البارتشن C بلويندوز 7 ولاكن لايقبل يضهر خطاء حتى استعملت مكون اندي و urlmon ويضهر خطاء
كيف اتجاوز الخطاء ؟ لا اعلم ان كان البارتشن محمي
المشاركات : 146
المواضيع 5
:
: 6
الإنتساب : Feb 2010
الامر يعود الى windows uac يجب ان يعمل البرنامج ك Administrator
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
الذي لم افهمه كيف لنا ان نعرف الخطأ ان لم نشاهد الكود او على الاقل رسالة الخطأ ؟؟؟؟؟
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
المشاركات : 35
المواضيع 12
:
: 0
الإنتساب : Mar 2012
لم اعطي مثال لاني ذكرت بانه لو استعملنا اي شيء لايمكن
الان هذا كود
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
HTTP: TIdHTTP;
MS: TMemoryStream;
begin
HTTP := TIdHTTP.Create(nil);
MS := TMemoryStream.Create;
try
HTTP.Get('http://hi7ob.com/up/uploads/13407738717.jpg', MS);
MS.SaveToFile('C:\13407738717.jpg');
finally
HTTP.Free;
MS.Free;
ShellExecute(0, 'open', 'C:\13407738717.jpg', nil, nil, 2);
end;
end;
end.
بدل الصوره الى ملف تنفيذي بامتداد exe ويكون العمل على ويندوز 7 لانه اكس بي لايوجد به مشاكل وتضهر معك رساله بانه لايمكن التحميل
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
السلام عليكم عند استخدام Api لا تمرر string مباشرة دائما اتخدم PChar اي بدل
كود :
ShellExecute(0, 'open', 'C:\13407738717.jpg', nil, nil, 2);
استخدم
كود :
ShellExecute(0, 'open', PChar('C:\13407738717.jpg'), nil, nil, SW_SHOWDEFAULT);
+ من فضلك اخي وضح رسالة الخطأ التي يخبرك عنها دلفي سيكون مفيد كثير لمن يريد مساعدتك....
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم
كما قال justnick انظمة ويندوز ما فوق XP لا تسمح لم بالعبث وانشاء ملفان اينما تشاء دون صلاحيات
راجع ايضا ما سبق
http://www.delphi4arab.net/forum/showthread.php?tid=959
http://www.delphi4arab.net/forum/showthr...p?tid=4624
مكرر يغلق