در مورد سوال اول من تست کردم همچین مشکلی رو نداشت. کدی رو که نوشتی چک کن
کدی که من نوشتم برای باز کردن فایل و کارهای مربوطه به این صورته:
procedure Tform1.Button1Click(Sender: TObject);
var f:String;
begin
if Edit2.Text<>'' then
begin
f:=ExtractFilePath(Application.ExeName);
f:=f+'\PDF_Files\'+Edit2.Text+'.pdf';
if FileExists(f) then
begin
form1.Width:=936;
form1.Height:=674;
Button2.Visible:=true;
AcroPDF1.Visible:=true;
AcroPDF1.src:=f;
end
else MessageDlg('File Not Found', mtInformation, [mbOK], 0);
end;
end;
ولی همون مشکل هست.
در مورد دستورات کپی کردن و پاک کردن فایل هم دستت درد نکنه.