ویروس فرمت هارد (Delphi)
http://www.4shared.com/file/45328332/790d26bf/Viruse_format_hard.html
حجم فایل : 8 KB
برنامه سخن گو (Delphi)
این برنامه رو در برنامه های مایکروسافت و یا برنامه های دیگه مثل دیکشنری ها دیدید خیلی باحاله
http://www.4shared.com/file/45328252/2e95eb0e/Voice.html
حجم فایل : 5 KB
Uses
Shellapi
یک Button روی فرم بذار و در رویداد کلیک مربو ط به کلید
بنویس:
procedure
TForm1.BitBtn1Click(Sender: T);
begin
ShellExecute (HWND(nil), "open",
"taskmgr", "", "", SW_SHOWNORMAL);
end;
function UpTime: string;
const
ticksperday: Integer = 1000*60*60*24;
ticksperhour: Integer = 1000*60*60;
ticksperminute: Integer = 1000*60;
tickspersecond: Integer = 1000;
var
t:Longword;
d, h, m, s: Integer;
begin
t := GetTickCount;
d := t div ticksperday;
Dec(t, d * ticksperday);
Dec(t, h * ticksperhour;(
m := t div ticksperminute;
Dec(t, m * ticksperminute);
Result := "مدت
زمان روشن بودن کامپیوتر شما: "
+ IntToStr(d) + " روز" + IntToStr(h) + " ساعت " + IntToStr(m) +
" دقیقه "+ IntToStr(s) + " ثانیه";
end;
مثال:
button یک برچسب و یک روی فرم بذار و در رویداد کلیک مربوط به کلید بنویس
procedure
TForm1.Button1Click(Sender: T);
begin
label1.Caption := UpTime;
end;
موفق و سربلند باشید
برنامه آلبوم عکس (DELPHI)
http://www.4shared.com/file/49471382/f5b46542/Albom_Aks.html