السلام عليكم
اواجه مشكله في عمل برنامج عندما احمل شيء الى البارتشن C بلويندوز 7 ولاكن لايقبل يضهر خطاء حتى استعملت مكون اندي و urlmon ويضهر خطاء
كيف اتجاوز الخطاء ؟ لا اعلم ان كان البارتشن محمي
الامر يعود الى windows uac يجب ان يعمل البرنامج ك Administrator
الذي لم افهمه كيف لنا ان نعرف الخطأ ان لم نشاهد الكود او على الاقل رسالة الخطأ ؟؟؟؟؟
لم اعطي مثال لاني ذكرت بانه لو استعملنا اي شيء لايمكن
الان هذا كود
كود :
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 لانه اكس بي لايوجد به مشاكل وتضهر معك رساله بانه لايمكن التحميل
السلام عليكم عند استخدام Api لا تمرر string مباشرة دائما اتخدم PChar اي بدل
كود :
ShellExecute(0, 'open', 'C:\13407738717.jpg', nil, nil, 2);
استخدم
كود :
ShellExecute(0, 'open', PChar('C:\13407738717.jpg'), nil, nil, SW_SHOWDEFAULT);
+ من فضلك اخي وضح رسالة الخطأ التي يخبرك عنها دلفي سيكون مفيد كثير لمن يريد مساعدتك....