التعامل مع الدالة Shellexecute ؟

implementation{$R *.dfm}
uses ShellAPI;

procedure TForm6.Button1Click(Sender: TObject);
var vPath : string;
begin
vPath:='C:\WINDOWS\notepad.exe';
ShellExecute(Handle,'OPEN',pchar(vPath), Nil, Nil, SW_SHOWNORMAL);
//OR
WinExec(pchar(vPath),SW_SHOWNORMAL);

end;

procedure TForm1.Button1Click(Sender: TObject);
var path : string;
begin
   path := 'c:\text.txt';
   shellexecute(handle,'open',pchar(path),nil,nil,SW_SHOWNORMAL)
end;

السلام عليكم

-----------

مشكورين اخواني على الرد فلقد نجح الكود معي

انظر ياعزيزي إذا اردت ان تعرف البراماتر الصحيح فلاحظ تلميحات الكومبايلر ماذا تقول ففي ShellExecute انظر ماذا يعطيني

يقول التلميح ان البراماتر الثالث يجب ان يكون من نوع PAnsiChar

وانت مصرح بان Path هو من نوع String ولهذا يجب ان تقوم بعملية تدعى ال TypeCasting وفي حالتك يجب ان يكن PChar( Path ) وإلا سوف يعطيك المترجم خطاء في عدم التوافق .

وبهذه الطريقة سوف تتعلم كيف تبرمج إن شاء الله .

والسلام عليكم ورحمة الله وبركاته

السلام عليكم

-------------

بارك الله فيك اخوي (mohfa) غلى هذه المعلومات الجيدة وإن شاء الله مزيدا من التفدم ...

-------------

وعليكم السلام