Graphical
چهارشنبه 29 خرداد 1387, 15:22 عصر
با عرض سلام و ادب حضور اساتید محترم
جستجوی زیادی انجام دادم اما به نتیجه نرسیده ام..
بنده تغییرات نرم افزاری ام را در قالب Patch ارائه میدهم.
مشتریانم به من گفته اند Patch عمل نمیکند یا به عبارتی نرم افزار تغییراتی نکرده است.
مشکل آنها این است که نرم افزار را هر جا دلشون خواسته نصب کردند...
من در Patch گفته ام که تعداد فایل موجود را به ProgramFiles و مقصد اصلی برنامه ام کپی کن اما Programfile در درایوی غیر از ویندوز ممکن است وجود داشته باشد
برای زمانی که در ProgramFile در SystemROot وجود نداشته باشد دستور جستجوی Programfile در درایوهای دیگر را داده ام، و پس از یافتن کپی انجام میشود
اما این جستجو و شناسایی فایلها به کندی انجام میشود .
آیا من این موارد را درست انجام داده ام؟
procedure TForm1.Button1Click(Sender: TObject);
var
Rec: TSearchRec;
begin
if FindFirst('C:\Program Files\test\' + 'test1.exe', faDirectory, Rec) = 0 then
CopyFile('test1.exe','C:\Program Files\test\',false);
end;
end.
جستجوی زیادی انجام دادم اما به نتیجه نرسیده ام..
بنده تغییرات نرم افزاری ام را در قالب Patch ارائه میدهم.
مشتریانم به من گفته اند Patch عمل نمیکند یا به عبارتی نرم افزار تغییراتی نکرده است.
مشکل آنها این است که نرم افزار را هر جا دلشون خواسته نصب کردند...
من در Patch گفته ام که تعداد فایل موجود را به ProgramFiles و مقصد اصلی برنامه ام کپی کن اما Programfile در درایوی غیر از ویندوز ممکن است وجود داشته باشد
برای زمانی که در ProgramFile در SystemROot وجود نداشته باشد دستور جستجوی Programfile در درایوهای دیگر را داده ام، و پس از یافتن کپی انجام میشود
اما این جستجو و شناسایی فایلها به کندی انجام میشود .
آیا من این موارد را درست انجام داده ام؟
procedure TForm1.Button1Click(Sender: TObject);
var
Rec: TSearchRec;
begin
if FindFirst('C:\Program Files\test\' + 'test1.exe', faDirectory, Rec) = 0 then
CopyFile('test1.exe','C:\Program Files\test\',false);
end;
end.