کار با دستور شرطی if و فایل و نمایش پیام در دلفی

alias67

عضو جدید
من چون نیاز دارم یه فایل اجرایی بدون نیاز به دات نت فرم ورک کار کنه میخوام کدهای زیر رو به دلفی تبدیل کنم:
معادل دستورهای زیر تو دلفی چی میشه؟

من با سی شارپ از این کد استفاده میکنم:

کد:
  [FONT=Courier New (Arabic)][SIZE=2][FONT=Courier New (Arabic)][SIZE=2][/SIZE][/FONT][/SIZE][/FONT][SIZE=2][/SIZE][FONT=Courier New (Arabic)][SIZE=2][FONT=Courier New (Arabic)][SIZE=2][/SIZE][/FONT][/SIZE][/FONT][SIZE=2][/SIZE] if (File.Exists(Application.StartupPath + @"\Crack.exe"))// [FONT=Courier New (Arabic)][SIZE=2][FONT=Courier New (Arabic)][SIZE=2]اگه فایل کرک موجود بود دستور بعدی رو اجرا کن
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]System.Diagnostics.Process.Start(Application.StartupPath + @"\Crack.exe");//[/SIZE][FONT=Courier New (Arabic)][SIZE=2][FONT=Courier New (Arabic)][SIZE=2]فایل کرک رو اجرا کن
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]else
MessageBox.Show("Program Is Not Original", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);//[/SIZE][FONT=Courier New (Arabic)][SIZE=2][FONT=Courier New (Arabic)][SIZE=2]پیام بده که برنامه اورجینال نیست
[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New (Arabic)][SIZE=2][FONT=Courier New (Arabic)][SIZE=2][/SIZE][/FONT][/SIZE][/FONT]
 

ayask

عضو جدید
من چون نیاز دارم یه فایل اجرایی بدون نیاز به دات نت فرم ورک کار کنه میخوام کدهای زیر رو به دلفی تبدیل کنم:
معادل دستورهای زیر تو دلفی چی میشه؟

من با سی شارپ از این کد استفاده میکنم:

کد:
   if (File.Exists(Application.StartupPath + @"\Crack.exe"))// [SIZE=2][SIZE=2]اگه فایل کرک موجود بود دستور بعدی رو اجرا کن
[/SIZE][/SIZE][SIZE=2]System.Diagnostics.Process.Start(Application.StartupPath + @"\Crack.exe");//[/SIZE][SIZE=2][SIZE=2]فایل کرک رو اجرا کن
[/SIZE][/SIZE][SIZE=2]else
MessageBox.Show("Program Is Not Original", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);//[/SIZE][SIZE=2][SIZE=2]پیام بده که برنامه اورجینال نیست
[/SIZE][/SIZE]

سلام دوست عزیز . پاسخ زیر رو میتونید استفاده کنید .
ضمنا اگه سوالی داشتید میتونید به انجمن تخصصی ایران دلفی به مدیریت اینجانب مراجعه کنید...
کد:
[/SIZE]
if FileExists('.\Crack.exe') then
begin
WinExec('.\Crack.exe',SW_SHOWNORMAL) ;
end
else
begin
ShowMessage[SIZE=2]('Program Is Not Original');
end;[/SIZE]
 

Similar threads

بالا