چطور سي دي رو قفل ميكنن كه بعد از كپي كردن ميگه سي دي اصل نيست ؟

سلام سولجر عزيز

من برنامه شما رو دان لود كردم و اجرا هم كردم با فايل شما اوكي مي داد و با فايلي كه من به اسم فايل شما ساختم ارور داد

پس منتظر ادامه مطالب از طرف شما هستم

ممنون

سلام
ببخشيد كه پست اضافه زدم اينجا!
اما من نمي تونم آخرين پست اچ پي رو ببينم؟
مشكل از كجاست؟

سلام
حالا که پست رو دادم می تونم بخونم.چه مشکل خسته کننده ای:(
پس چرا یه چند نفر دیگه تست نمی کنند !؟ اگر کامل درست بود به
من بگید تا روش قفل رو بذارم دیگه.منتظرم

سلام

سولجر عزيز ما منتظريم ها

دستمون رو تو حنا نزاري ها

ممنون

نقل قول:

---

نوشته شده توسط soldier

سلام
ما كه نمي خواهيم يه قفل بندازيم روي برنامه.
مي خواهيم يه قفل طراحي كنيم.من يه طرح دارم
كه عمرآ و عبدآ كسي بتونه بازش كنه.تا هفته آينده
منتظر باشيد تا قفل رو تحويل بگيريد:) ممنون

---

دست رو دست بسیاره ما هنوز اول راهیم جانم

کشور های اروپایی با اون همه دکو پوزشون 1 ماه نشده برنامه قفل کرک میشه

:happy:

سلام
به جاي اينكه توي فكر اروپاييا باشيم
فعلآ اين قفل رو امتحان كن ببين كار مي كنه
تا در آينده ممكنه قفل هاي بهتري طراحي كنيم.
فعلآ كه شما منو گذاشتين سره كار
از اون موقعي كه اين قفل رو گذاشتم
فسيل شده بيشتر 2 نفر امتحانش نكردند

سلام

عزيز قفل رو بده بياد تا بي خيالش نشديم

باي

سلام
اول بايد تاريخ و زمان فايل رو بگيريد.
پس اول بايد يه پروسيجر تعريف كنيم.
اول اين رو به private اضافه كنيد .

کد:

---

    function GetFileDate(TheFileName: String): String;

---

و به اين صورت زمان رو از فايل بدست بياريد :

کد:

---

function TForm1.GetFileDate(TheFileName: string):string;
var
    FHangle : Integer;
begin
    FHangle := FileOpen(TheFileName,0);
    try
        Result := DateTimeToStr(FileGetDate(FHangle));
    finally
    end;
end;

---

حالا كار اصلي اينجاست كه بايد كاري كنيم كه
از طريق زمان فايل مشخص بشه فايل اصله يا نه؟
اين هم به اين صورت مي زاريد توي OnCreate

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
var
    S : Integer;
    A : String;
begin
    A := GetFileDate('New Text Document.txt');
    S := StrToInt(A[9]+A[7]);
    if (1552=(S*1000 div 8 + 321 - 19)) then
        ShowMessage('OK, Project Not Copy')
    else ShowMessage('No, project is copy');
end;

---

اگر هم توضيح نياز داشت بگيد تا براتون توضيح بدم.

سلام
اين يكي ظلمه
به خدا ظلمه
نه تستش كرديد.
نه تشكر
وقتي كه قرار بود بدم
تند تند پست ميديد چي شد؟

سلام soldier جان
من برنامه تو دان نکردم ولی ازت تشکر می کنم واسه این که اطلاعات با ارزش خودتو در اختیار همه میذاری.
من خودم به این روش کار کردم که مثلاً سریال یه قطعه ی سخت افزاری رو می گیرم (مثل هارد یا سی پی یو) بعد با
انجام یه سری عملیت (حالا می خواد ابتدائی یا پیچیده باشه) ریاضی اونو تغییر می دم و اونو تو یه فایل می ذارم.
بعد تو برنامه سریال مثلاً هارد رو می گیرم و با انجام همون عملیت ریاضی کد رو درست میکنم.
حالا این کد بدست اومده رو با کدی که به برنامه میدن چک میکنم اگه یکی بودن برنامه کار میکنه.
به امید دیدار.