matinebi
دوشنبه 19 فروردین 1392, 23:05 عصر
با سلام لطفا مشکل کد زیر را بیان نمایید 1-بانک بکاپ گرفته شده از قبل با کد زیر بایستی در آدرس دایرکتوری برنامه قرار گیرد که نمیگیرد؟ 2-چطور مشکل نوشتن فارسی را در مسیج دیالوگ حل کنم
procedure Tmain.N4Click(Sender: TObject);
var s,s4:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
s4 := GetCurrentDir+'\tellbook.accdb';
try
CopyFile(pchar(s),pchar(s4),true);
except
MessageDlg('ÚãáíÇÊ ÈÇ Ô˜ÓÊ ãæÇÌå ÔÏ',mtError,[mbOK],0);
end;
end;
end;
procedure Tmain.N4Click(Sender: TObject);
var s,s4:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
s4 := GetCurrentDir+'\tellbook.accdb';
try
CopyFile(pchar(s),pchar(s4),true);
except
MessageDlg('ÚãáíÇÊ ÈÇ Ô˜ÓÊ ãæÇÌå ÔÏ',mtError,[mbOK],0);
end;
end;
end;