مشكلة في فتح برامج خارجية.... ما الحل؟

[you_per8]

السلام عليكم
لدي برنامج يقوم بفتح برامج و ملفات خارجية: كل شيء يعمل بشكل جيد على windows xp  لكنني أجد مشكلة مع ويندوز 7

كود :

ShellExecute (Handle, 'open', PChar ('Books/3.cbr') ,  nil, nil, SW_SHOWNORMAL);

الغريب في الأمر أنني أستخدم كود مشابه و هو يعمل مع جميع اصدرات ويندوز

كود :

ShellExecute (Handle, 'open', PChar ('setup.exe') ,  nil, nil, SW_SHOWNORMAL);

للإشارة فإن مسار الملفات صحيح
فما هي المشكلة؟؟ جزاكم الله خيرا

[Agmcz]

وعليكم السلام
أضف له مسار البرنامج وحل الأمر هكذا

كود :

 ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'Books/3.cbr'), nil, nil, SW_SHOWNORMAL);

[you_per8]

بوركت أخي الكريم... لكن هلا؟ شرحت لي أين يكمن الخلل؟؟