نمایش محتوای فایل تکس با نوت پد

[khoshblagh]

با سلام خدمت دوستان
با دستور زیر میتوان برنامه نوت پد را اجرا و سپس با انتخاب فایل تکس محتوای آنرا نمایش داد. حالا اگر بخواهیم با زدن دکمه فایلی که در کنار فایل exe برنامه را نمایش دهیم چه تغییری در آن باید داد؟ یعنی کاربر نیازی به جستجو فایل و باز کردن آن نداشته باشد. متشکرم
WinExec('NotePad.exe',SW_SHOWNORMAL);

[khoshblagh]

با سلام
با مثال زیر از سایت about مسئله حل شد.

ShellExecute(Handle,'open', 'notepad.exe','.\hogh.txt', nil, SW_SHOWNORMAL) ;

[khoshblagh]

چرا این کد درXE4 اجرا نمیشود؟متشکرم

با سلام
با مثال زیر از سایت about مسئله حل شد.

ShellExecute(Handle,'open', 'notepad.exe','.\hogh.txt', nil, SW_SHOWNORMAL) ;

[یوسف زالی]

این رو تست کنید:


ShellExecute(Handle,'open', 'notepad.exe MyFile.txt','', nil, SW_SHOWNORMAL) ;

[khoshblagh]

این رو تست کنید:


ShellExecute(Handle,'open', 'notepad.exe MyFile.txt','', nil, SW_SHOWNORMAL) ;
خطای عدم شناخت shellExecute میدهد . احتمالا به بخش uses باید یونیتی اضافه شود.

[یوسف زالی]

ShellAPI .

[khoshblagh]

ShellAPI .
با سلام
موقع درج ShellAPI د ر بخش Uses یونیت توسط تکمیل کننده کد شناسایی نمیشود.به هر حال بعد از درج آن در بخش Uses باز هم برنامه Notepad اجرا نمیشود. احتمالا در رابطه با XE4 باید از دستور دیگری استفاده نمود. متشکرم

[Mask]

خطای عدم شناخت shellExecute میدهد . احتمالا به بخش uses باید یونیتی اضافه شود.
اگه خودتون هم یه تلاشی بکنید بد نیست . کلیه پارامترها و مشخصات تابع
ShellExecute در نت موجوده.:چشمک:
از این کد استفاده کنید. پارامتر مسیر فایل رو به برنامه نوت پد اختصاص بدید. در ضمن اگر در ویندوز سون هستید حتما برنامه رو run as admin اجرا کنید.

ShellExecute(Handle, 'open', pchar('notepad.exe'),
pchar(ExtractFilePath(ParamStr(0)) + 'Mytxt.txt'), nil, SW_SHOWNORMAL);

[khoshblagh]

با سلام
همانطور که در پست شماره 7 عرض کردم در ویندوز 7 و XE4 یونیت ShellAPI در بخش uses شناسایی نمیشود.مشکل اینجاست!!!

[ATULICUS]

uses winapi.shellapi

[khoshblagh]

uses winapi.shellapi
متاسفانه باز هم شناسایی نشد.:ناراحت: