مشکل با کپی کردن فایلها

[حمیدرضاصادقیان]

سلام دوستان.من یک SEtup نوشتم. ابتدا میام فایلها رو در program files کپی میکنم بعدش میخوام msde 2000 release a رو نصب کنم بهم پیغام میده با sdk ها مشکل داره.ولی وقتی برنامه رو در جای دیگه ای نصب میکنم msde نیز نصب می شود.ولی وقتی در program files من فایلهامو کپی میکنم دیگه نمیشه msde رو در اونجا نصب کرد.


procedure CopyFolders(const FromFolder: string; const ToFolder: string);
var
FOS :TSHFileOpStruct;
begin
if NOT DirectoryExists(ToFolder) then ForceDirectories(ToFolder);
with FOS do begin
wFunc := FO_COPY;
pFrom := PChar(FromFolder + '*.*');
pTo := PChar(ToFolder);
fFlags := FOF_NoConfirmMkDir;
end;
SHFileOperation(FOS);
end;

این تابعی هست که من باهاش شاخه ها رو کپی میکنم.
ممنون میشم راهنمایی کنید.

[vcldeveloper]

در ویندوز ویستا؟ اگر ویستا هست، اجازه نوشتن در Program Files را بصورت عادی نمیده!

[حمیدرضاصادقیان]

سلامم.ممنون. نه در ویستا نیست. من تست کردم وقتی که برنامه در حال اجراست ظاهرا اون شاخه رو قفل میکنه و اجازه نمیده چیز دیگری درونش نوشته بشه ولی وقتی برنامه رو Terminate میکنم مشکل حل میشه. نمیشه وقتی عملیات کپی فایلها تموم شد من بتونم این object رو free کنم تا این مشکل حل بشه.

[vcldeveloper]

من متوجه نشدم؛ چه برنامه ایی پوشه را قفل میکنه؟ کدوم Object را Free کنید؟

[حمیدرضاصادقیان]

سلام.ببینید من با استفاده از تابعی که بالا نوشتم ابتدا فایلهای برنامه رو در مسیر program files کپی میکنم. بعد از اتمام کپی من شروع به نصب sql میکنم که اجازه نمیده. ولی وقتی sql رو روی یک مسیر دیگه نصب میکنم یا فایلها رو جای دیگه ای کپی میکنم sql خیلی راحت نصب میشه.