تا الان شده که کسی پشت سیستم شما بشینه و برنامه هاتونو نگاه کنه و بعد انکار کنه بگه اون ساعت کار نکردم.
با این برنامه می تونید زمان و تاریخ دقیق آخرین دسترسی به یک فایل  رو ببینید.

خوب شروع می کنیم یک Button , یک Memo روی فرم بذارید و برای Button دستورات زیر را بنویسید.

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec : TSearchRec;
Success : integer;
DT : TFileTime;
ST : TSystemTime;
begin
Memo1.Font.Name:='Tahoma';
Success := SysUtils.FindFirst('c:\Yahoo!\YPager.exe'{ اسم و آدرس فایل با پسوند },faAnyFile,SearchRec);
if (Success = 0) and
((SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0 ) or
(SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0 )) then
begin
FileTimeToLocalFileTime(SearchRec.FindData.ftLastAccessTime,DT);
FileTimeToSystemTime(DT,ST);
Memo1.Lines.Clear;
Memo1.Lines.Add('آخرین زمان و تاریخ دسترسی به فایل ');
Memo1.Lines.Add('سال = ' + IntToStr(ST.wYear));
Memo1.Lines.Add('ماه = ' + IntToStr(ST.wMonth));
Memo1.Lines.Add('روز از هفته= ' + IntToStr(ST.wDayOfWeek));
Memo1.Lines.Add('روز = ' + IntToStr(ST.wDay));
Memo1.Lines.Add('ساعت = ' + IntToStr(ST.wHour));
Memo1.Lines.Add('دقیقه = ' + IntToStr(ST.wMinute));
Memo1.Lines.Add('ثانیه= ' + IntToStr(ST.wSecond));
Memo1.Lines.Add('میلی ثانیه = ' +IntToStr(ST.wMilliseconds));
end;
SysUtils.FindClose(SearchRec);

end

ابتدا Registry رو به بخش Uses ها اضافه می کنیم. بعد چهار تا Edit و چهار تا Button روی فرم می ذاریم.

می خواهیم کلید اوّل مسیر ویندوز نصب شده رو تو Edit1 مشخص کنه پس Caption Buton1 رو بذارید Get Windows Path حالا  برای همین کلید این دستورات رو بنویسید.

procedure TForm1.Button1Click(Sender: TObject);
var
WinDir: Array[0..MAX_PATH -1] of char;
Result: string;
begin
SetString(Result,WinDir,GetWindowsDirectory(WinDir,MAX_PATH));
Edit1.Text:=WinDir;
end;
 

خوب تو کلید بعدی هم می خواهیم مسیر system32  رو پیدا کنیم پس مثل کلید اول ابتدا Coption این کلید رو می ذاریم Get System Path و این دستورات رو می نویسیم.

var
SysDir: Array[0..MAX_PATH -1] of char;
Result: string;
begin
SetString(Result,SysDir,GetSystemDirectory(SysDir,MAX_PATH));
Edit2.Text:=SysDir;
end;
 

 

برای کلید سومی هم می خواهیم مسیر Program Files رو پیدا کنیم  Caption این کلید رو می ذاریم Get Program Files Path بعد دستورات زیر رو براش می نویسیم .

procedure TForm1.Button3Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion',False);
Edit3.Text:=Reg.ReadString('ProgramFilesDir');
Reg.CloseKey;
end;
 

برای کلید و ادیت چهارم هم می خواهیم مسیر Temp  رو نشون بدیم پس Caption این کلید رو می ذاریم Get Temp Path  و بعد این دستورات رو براش می نویسیم.

var
TempDir: Array[0..MAX_PATH -1] of char;
Result: string;
begin
SetString(Result,TempDir,GetTempPath(MAX_PATH,TempDir));
Edit4.Text:=TempDir;
end;

یه Button  روی فرم بذارید و این دستورات رو بنویسید .

procedure TForm1.Button1Click(Sender: TObject);
var
pid1: PitemIDList;
buf: Array[0..Max_PATH] of char;
begin
if Succeeded(ShGetSpecialFolderLocation(Handle,CSIDL_DESKTOP,pid1)) then
begin
if ShGetPathfromIDList(pid1,buf) then ShowMessage(buf) ;
CoTaskMemFree(pid1);
end;
end;

دو تا Buton بذارید روی فرم و Caption اولی رو بذارید Fa  و دومی هم En

حالا برای Button1 اینو بنویسید .

 

procedure TForm1.Button1Click(Sender: TObject);
begin
 LoadKeyboardLayout('00000429',KLF_ACTIVATE);

end;

و برای Button2 هم این .

 

procedure TForm1.Button1Click(Sender: TObject);
begin
 LoadKeyboardLayout('00000409',KLF_ACTIVATE);

end;

دلفی در واقع یک کامپایلر پاسکال است. دلفی 6 نسل جدید کامپایلر های پاسکال است که شرکت Borland از زمان ایجاد اولین نسخه پاسکال توسط Andres Hejlsberg در 15 سال پیش به بازار عرضه کرد.

برنامه نویسی به زبان پاسکال در سالیان سال از استواری و ثبات، زیبایی و ظرافت و البته سرعت بالای کامپایل سود برده است. دلفی هم از این قاعده مستثنی نیست. کامپایلر دلفی ترکیبی از بیش از یک دهه تجربه طراحی کامپایلر پاسکال و معماری بهبود یافته کامپایلر های 32 بیتی است. اگرچه قابلیت های کامپایلرها با گذشت زمان پیشرفت قابل توجهی داشته است ولی سرعت آن چندان کاهش نیافته و همچنان از سرعت بالایی برخوردار است. به علاوه استحکام و قدرت کامپایلر دلفی معیاری برای سنجش دیگر کامپایلر هاست.

در اینجا به بررسی تفصیلی روند حرکتی دلفی در هر یک از نسخه های آن می پردازیم و مشخصات مهم آن را بررسی می کنیم.

سال 1995 - Delphi1
در زمان استفاده از سیستم عامل DOS برنامه نویسان مجبور بودند از بین زبان پر قدرت ولی کم سرعت Basic و زبان کارآمد ولی پیچیده و نامفهوم Assembly یکی را انتخاب کنند. پاسکال با ارائه یک زبان ساخت یافته و یک کامپایلر سریع و کم نقص این شکاف را پرکرد. برنامه نویسان Windows 3.1 هم با تصمیم گیری مشابهی رو برو شدند. یکی زبان قدرتمند و سنگین ++C و یکی زبان ساده و محدود کننده Visual Basic .

ارائه Delphi1 در این مورد هم راه حل خوبی برای برنامه نویسان بود. دلفی مجموعه متفاوتی برای برنامه نویسی بود . طراحی و توسعه برنامه های کاربردی، ایجاد DLL ها، پایگاههای داده و ... که یک محیط ویژوال وسیع را تشکیل می داد. Delphi1 اولین ابزار برنامه نویسی ویندوز بود که محیط طراحی ویژوال، کامپایلر بهینه کد برنامه و دسترسی قوی به پایگاههای داده را در یک جا جمع کرد که آن را به یکی از بهترین ابزارهای روش نوین توسعه سریع نرم افزار (Rapid Application Development) تبدیل کرد. این مجموعه قدرتمند باعث شد که در همان زمان بسیاری از برنامه نویسان زبانهای دیگر به Delphi روی بیاورند و این موفقیت بزرگی برای Borland به حساب می آمد. همچنین بسیاری از برنامه نویسان پاسکال دلفی را ابزاری یافتند که توسط آن هم از توانایی و تجربه خود در برنامه نویسی پاسکال استفاده می کردند و هم توانایی کار در ویندوز را به دست آوردند. همچنین زبانی که در آن زمان با نام پاسکال شیئی (ObjectPascal) در دانشگاهها ایجاد شده بود یک زبان بسیار خشک و محدود کننده بود که اصلاٌ حالت کاربردی پیدا نکرد.

ویژگیهای دلفی مثل طراحی ظاهری حساب شده و کاربر پسند آن باعث شد که زبان پاسکال شیئی عملاٌ از رده خارج شود. تیم طراحی VB در Microsoft قبل از حضور دلفی هیچ رقیب مهمی برای خود نمی دید. VisualBasic در آن زمان زبانی نا کارآ ، کم سرعت و کند ذهن بود. Visual Basic 3 در عمل اصلا توانایی رقابت با Delphi 1 را نداشت. در این سال شرکت Borland گرفتار یک سری مشکلات قضائی با شرکت Lotus بود که در نهایت هم متخلف شناخته شد. همچنین درگیری مشابهی هم با Microsoft بر سر تلاش در تغییر دادن فضای نرم افزار های Microsoft پیدا کرد. همچنین Borland مشغول طراحی و فروش طرح Quatro به شرکت Novell و طراحی پایگاه های داده dBase و Paradox بود که با استقبال قابل توجهی مواجه نشد.

در این زمان که Borland مشغول فعالیتهای قضایی و تجاری بود Microsft توانست گوی سبقت را از Borland برباید و قسمت اعظم بازار ابزار های برنامه نویسی تحت Windows را در اختیار بگیرد و سعی می کرد تا این طرز فکر را اشاعه دهد که چون Windows را طراحی کرده صلاحیت و توانایی تهیه بهترین ابزار های برنامه نویسی تحت آن را نیز در دست دارد. در این شرایط Borland با عرضه Delphi و نسخه جدید ++Borland C سعی کرد خدشه ای در فرمانروایی Microsoft وارد کند و سهمی در بازار بزرگ این محصولات داشته باشد.

سال 1996 - Delphi2
یک سال بعد Delphi2 تمام مزایای نسخه قبلی را تحت سیستم های جدید 32 بیتی (Windows 95,Windows NT) ارائه داد. همچنین Delphi2 با ارائه خصوصیات اضافه و کارکرد های قویتری نسبت به Delphi1 توانایی های خود را افزایش داد. (ازجمله ارائه کامپایلر 32 بیتی که سرعت بالایی به نرم افزار ها می بخشید، کتابخانه بزرگ و کاملی از اشیای مختلف، شیوه جدید و تکامل یافته ای برای اتصال به پایگاه های داده مختلف، ادیتور پیشرفته، پشتیبانی از OLE ، توانایی وراثت در فرمهای ویژوال و سازگاری با پروژه های 16 بیتی Delphi1 ). Delphi2 به معیاری برای سنجش و مقایسه همه ابزارهای توسعه نرم افزار در آن زمان تبدیل شد.

در آن زمان با ارائه سیستم 32 بیتی Windows95جهش بزرگی در سیستم عامل Windows رخ داد و Borland بسیار مشتاق بود که Delphi را به بهترین ابزار برنامه نویسی سیستم جدید تبدیل کند. نکته این که در آن زمان به منظور تاثیر در افکار عمومی و تاکید بر قدرت Delphi در سیستم عامل 32 بیتی قرار بود که نرم افزار با نام جدید Delphi32 به بازار عرضه شود ولی در آخرین مراحل به خاطر اینکه نشان دهند این زبان زبانی رشد یافته و تکامل یافته نسخه قبلی یعنی Delphi1 است نام Delphi2 را برای آن انتخاب کردند.

Microsoft تلاش کرد که با Visual Basic 4 با Delphi مقابله کند ولی از ابتدا کیفیت پایین آن و ضعف آن در انتقال برنامه های 16 بیتی به سیستم 32 بیتی و بروز اشکالات ساختاری در طراحی آن موجب شکست زودهنگام Visual Basic 4 شد. در این زمان هنوز تعداد زیادی از برنامه نویسان به Visual Basic وفادار بودند. Borland هنچنین روشها و ابزارهای قدرتمندی همچون PowerBuilder برای طراحی نرم افزار های Client/Server ارائه داد ولی Delphi هنوز آن قدر قدرتمند نشده بود که بتواند نرم افزارهایی که جایی در بین توسعه گران پیدا کرده اند را براندازد.

سال 1997 - Delphi3
از زمان تهیه و توسعه Delphi1 تیم توسعه Delphi در فکر گسترش و ایجاد یک زبان قدرتمند جهانی بود. برای Delphi2 این تیم تمام نیروی خود را صرف اعمال مربوط به انتقال تواناییها و کارکرد ها به سیستم 32 بیتی و همچنین اضافه کردن خصوصیات Client/Server و پایگاه داده کرد. در زمان تهیه Delphi3 تیم توسعه فرصت لازم برای گسترش مجموعه ابزار موجود را یافت و در این راستا کیفیت و کمیت ابزارهای Delphi بهبود یافت. به علاوه راه حل هایی برای مشکلات عمده و قدیمی برنامه نویسان تحت ویندوز ارائه شد. به ویژه استفاده از برخی فناوری های پیچیده و نا مفهوم (مثل COM و ActiveX وتوسعه نرم افزار های تحت Web وکنترل پایگاههای داده چند کاربره). روش نمایش کد برنامه همچنین توانایی کامل کردن خودکار کد (Code Completion) عملیات کد نویسی را راحت تر کرد. ضمن این که همچنان در بیشتر موارد اساس و متدولوژی برنامه نویسی مانند Delphi1 بود و بر پایبندی به قوانین اصولی Pascal تاکید می شد.

در این زمان رقابت شرکت های تولید کننده ابزار های برنامه نویسی بسیار تنگاتنگ شده بود. Microsoft با ارائه Visual Basic 5 به پیشرفت های خوبی دست یافت ازجمله پشتیبانی قوی از COM و ActiveX و ایجاد برخی خصوصیات و تغییرات کلیدی و اساسی در کامپایلر VB. ضمن این در همین سال Borland با پشتوانه قوی Delphi و با استفاده از ساختار موفق آن ابزارهای دیگری همچون Forte و BC++ Builder به بازار عرضه کرد.

تیم Delphi در زمان طراحی Delphi3 چند تن از اعضای کلیدی خود را از دست داد. Andres Hejlsberg معمار اصلی Delphi در اقدام غیر منتظره ای Borland را ترک کرد و تصمیم گرفت به رقیب دیرینه یعنی Microsoft بپیوندد. اما حرکت تیم Delphi متوقف نشد و معاون Hejlsberg که سالها تجربه همکاری با او را داشت توانست رهبری این تیم را به خوبی در دست بگیرد. همچنین مسئول فنی تیم (Paul Gross) هم در اقدام مشابهی به گروه Microsoft ملحق شد. این تغییرات بیشتر به خاطر اختلافات شخصی بین افراد تیم بود و نه به خاطر مسائل حرفه ای.

سال 1998 - Delphi4
Delphi4 بیشتر بر روی راحتتر کردن کار با دلفی متمرکز شد. مرورگر روال ها (Module Explorer) بهبود یافت و مرور و ویرایش Unit ها را راحت تر کرد. کنترل کد و کامل کردن خودکار کلاسها این فرصت را به کاربر داد که فکر و زمان خود را روی ساختار اصلی برنامه بگذارد و در وقت صرفه جویی کند. طراحی رابط کاربر هم کاملاٌ عوض شد و بهبود یافت و اشکال زدا (Debugger) نیز پیشرفت قابل توجهی داشت. Delphi4 قابلیتهای برنامه نویسان را در استفاده از تکنولوژیهای چند منظوره خارجی مثل MIDAS ، DCOM ، MIS و Corba افزایش داد.

در این سال Delphi جایگاه خود را در رقابت با دیگران مستحکم کرده بود و کم کم به سمت دست یابی به سودآوری مالی مورد نظر خود پیش می رفت. در واقع در این زمان بود که حاصل کار سنگین چند ساله تیم نمایان می شد. بعد از سالها آزمایش Delphi شهرت و محبوبیت خاصی پیدا کرد و دیگر برنامه نویسان Delphi توانایی جدا شدن از آن را نداشتند. در این زمان Borland به کار سوٌال برانگیزی دست زد و به منظور تبلیغ بیشتر و برتری در جنگ روانی با دیگر شرکتها نام Inprise را برای فعالیتهای تجاری خود برگزید.

ابزار های مربوط به فن آوری Corba را گسترش داد تا راه جدیدی برای سودآوری ایجاد کند. برای موفقیت در این زمینه Corba نیاز به رابط کاربر قدرتمندی داشت که در کنار توانایی های آن کار کردن با آن نیز راحت باشد. دقیقاٌ همان کاری که در سالهای قبل در مورد COM و برنامه نویسی تحت Web انجام شده بود و به موفقیت دست یافته بود. با این وجود بنا به دلایل مختلفی این گسترش و توسعه Corba هیچ وقت تکامل و موفقیتی که مورد نظر بود را به دست نیاورد و بر خلاف تبلیغات و سرمایه گذاری های انجام شده فن آوری Corba تنها توانست نقش کوچکی در روند رو به جلوی Delphi ایفا کند.

سال 1999 - Delphi5
Delphi5 در برخی زمینه ها پیشرفت های قبلی را ادامه داده است. اولاٌ مسیری را که Delphi4 با اضافه کردن ویژگیهای زیادی شروع کرده بود ادامه داد. Delphi4 باعث شد کارهایی که قبلاٌ به صرف وقت زیادی احتیاج داشت بسیار سریعتر انجام شود. Delphi به شکل امیدوار کننده ای به برنامه نویس این امکان را می دهد که بیشتر به برنامه ای که میخواهد بنویسد توجه کند و نه به قواعد برنامه نویسی و نوشتن کد های تکراری و خسته کننده. این ویژگیهای سودمند شامل رابط کاربر بهبودیافته و سیستم اشکال زدایی(Debugger) توانمند ، امکانات برنامه نویسی تیمی و ابزار های ترجمه می شود.

ثانیا Delphi5 خصوصیات جدیدی را در بر می گیرد که توسعه برنامه های تحت وب را واقعاٌ راحت کرده است. این ویژگیها شامل طراح اشیای مربوط به ASP برای ساختن صفحات (Active Server Page)، اشیایی موسوم به Internet Express برای پشتیبانی از XML و خصوصیات جدید MIDAS که آن را به یک ابزار همه کاره در پایگاه های داده تحت Web تبدیل کرد. در نهایت با صرف وقت ، هزینه و صبر زیاد توانست Delphi5 قدرتمند را عرضه کند. این فعالیت مدتها به طول انجامید و قبل از عرضه عمومی، Delphi5 بارها در بازبینی ها و آزمایشهای داخلی قسمتهای مختلف آن تغییر کرد و بهبود یافت.

Delphi5 در نیمه دوم سال 1999 به بازار عرضه شد و به نفوذ و تسلط بر بازار ادامه داد. در این زمان Visual Basic که کم کم به عضوی تحقیر آمیز برای Microsoft تبدیل می شد هم با پیشرفتهایی توانست در رقابت دوام بیاورد و از صحنه خارج نشود. در اقدام درست و به جایی نام Inprise دوباره به Borland بازگشت. این اقدام از سوی طرفداران و مشتریان قدیمی Borland با استقبال خوبی مواجه شد.

سال 2001 – Delphi6
در هنگام تهیه Delphi6 ساختار Delphi در زمینه های مختلف شکل گرفته بود و به یک تکامل نسبی رسیده بود. این مسئله باعث شد که تیم طراحی بتواند وقت خود را بر روی طرحی که مدتها تنها در حد یک نظریه بود بگذارد و آن را بسیار زودتر از آن که انتظار می رفت عملی کند: گام نهادن به محیط های فراتر از Windows . بیشتر نیروی توسعه گران Delphi در این مدت صرف رهانیدن Delphi از بند Windows شد که این خود در درجه اول مبارزه ای آشکار با سلطه Microsoft بود و ثانیاٌ راه برنامه نویسان را به سوی فضا های دیگر برنامه نویسی باز کرد. در ابتدا این عمل ریسک بزرگی بود و بیم آن می رفت که جایگاه Delphi در Windows هم به خطر بیفتد ولی در نهایت به نقطه رشد و قوتی بدل شد که Delphi را به یکی از بهترین ابزار برنامه نویسی Multi Platform تبدیل کرد.تکنولوژی CLX روالهای مختلف Delphi را با Kylix (عضو جدید خانواده Borland که در فضای Linux کار می کند) به اشتراک گذاشت و استفاده از سیستم بایت Java باعث شد که Delphi حتی از قید سخت افزار هم رها شود.

به نظر می رسد که این فعالیتها باعث ثبات Delphi در دنیای برنامه نویسان شود و نگرانی های Borland و برنامه نویسان که همیشه می ترسیدند که مبادا با ضعیف شدن Windows جایگاه خود را از دست بدهند حال به افتخار و آرامش برای آنان و نگرانی برای طرفداران Microsoft تبدیل شده است.

 

محیط دلفی برای برنامه نویسی یکی از بهترین محیطهای برنامه نویسی است گذشته از کارکرد داخلی و کمپایلر آن که بسیار قوی و سریع است، محیط آن یعنی IDE آنهم قدرت بسیار زیادی دارد که باعث شده یکی از بهترین ادیتورها باشد. در این مقاله من سعی بر این داشته ام تا با ارائه یک سری از نکات و کلیدهای میانبر که می توانند برای کار در دلفی بسیار مفید و کارا باشند، کمک کنم تا شما بتوانید با قدرت بیشتر به برنامه نویسی و کار در این محیط قدرتمند ادامه دهید.

در قسمت اول مقاله که در حال حاضر در مقابل شماست من یک سری از کلیدهای میانبر و ترکیبی مورد استفاده در IDE دلفی را بصورت لیست وار و همراه یک توضیح کوچک آورده ام. دوستان عزیز برنامه نویس ممکنه که شما مدتها با دلفی مشغول برنامه نویسی بوده باشید اما من یقین دارم که در این لیست نکات و روشهای جدیدی را خواهید آموخت.

جستجو در متن بصورت مستقیم:
برای اینکار کلیدهای Ctrl+E را بفشارید و بدنبال آن شروع به تایپ کلمه مورد نظر کنید نتیجه آن را خود ببینید. برای اینکه به کلمه بعدی بروید کافیست کلید F3 را بزنید.

ایجاد فرورفتگی در کد:
بعضی اوقات - که خیلی هم پیش می‌آید - لازم است که یک مقداری از متن را بصورت بلوک شده به جلو و یا عقب ببریم. منظور دندانه دار کردن متن است که به خوانایی برنامه کمک می کند. برای اینکار می تونید از کلید Ctrl +Shift+I برای جلو بردن و Ctrl+Shift+U برای عقب برگرداندن متن بلوک شده استفاده کنید.

پرش به قسمت تعریف یک شی (Object):
ببنید شی مورد نظرتون (از قبیل VCL, Procedure, Function,...) در کجا و چطور تعریف شده می توانید کلید Crtl رو پایین نگه داشته و روی شی مورد نظر Click کنید.

برای تغییر حالت کاراکترها:
شما می توانید یک قسمت از متن (که ممکن است با حروف بزرگ و یا کوچک تایپ شده باشد) را انتخاب کنید و با زدن کلیدهای Ctrl+O+U به ترتیب تمامی حروف کوچک آن قسمت از متن را به حروف بزرگ و تمامی حروف بزرگ آنرا به حروف کوچک تبدیل کنید. برای تعییر حالت یک کلمه نیز میتوانید روی کلمه مورد نظر رفته و کلیدهای Ctrl+K+F برای بزرگ کردن و کلیدهای Ctrl+K+E را برای کوچک کردن حروف آن کلمه بکار برد.

درست کردن ماکرو متنی:
این امکان بسیار مفید است و می تواند بسیاری از کارهای نوشتاری را کاهش دهد با اینکار شما میتوانید یک سری از کارهای تکراری که روی متون انجام می دهید را بصورت ماکرو در آورده و از آنها به راحتی استفاده کنید. برای شروع به ضبط ماکرو کلیدهای Ctrl+Shift+R را بفشارید و آن سری کارهایی را که می خواهید را انجام دهید و سپس برای اینکه به کار ضبط ماکرو پایان دهید کلیدهای Ctrl+Shift+R را دوباره بزنید. حال برای استفاده از ماکرو کافیست در هر جا که لازم بود کلیدهای Ctrl+Shift+P را بفشارید.

انتخاب متن بصورت مربعی:
اگر شما از کهنه کارهای کامپیوتر باشید حتما از زمان داس یادتون هست که برنامه ای بود به نام PE2 که یکی از امکانات بسیار جالبش این بود که یک مربع از متن رو میتوانستین انتخاب کنید و آنرا کپی یا حذف کنید. بله درست متوجه شدید در محیط دلفی هم شما اینکار را میتوانید انجام دهید اما نه به مشکلی PE2 بلکه اینکار را میتوانید فقط با گرفتن کلید Alt و کشیدن موس روی متن انجام دهید. هر چند ممکن است در نگاه اول زیاد این امکان مفید به نظر نیاید ولی بعضی وقتهای خیلی کار را راحت میکنه، که حتماً تجربه خواهید کرد.

گذاشتن علامت روی متن:
این کار که به BookMark معروف است بسیار مفید و کارا می باشد. در هنگامی که شما روی قسمتی از متن برنامه کار میکنید و می خواهید به یک قسمت دیگر بروید ممکن است برای برگشتن به مکان اول خود کمی مشکل پیدا کنید. ولی شما میتوانید با زدن چند دکمه به محل مورد نظرتون باز گردید. برای اینکار در خطی که قصد دارید علامت بگذارید کلیدهای Ctrl+Shift+0..9 را بفشارید. منظور اینست که کلیدهای Ctrl+Shift را نگه دارید و یکی از اعداد 0 تا 9 را وارد کنید تا آن خط به همان شماره علامت گذاری شود و سپس هر جا که خواستید بروید و سپس هر بار که کلید Ctrl را نگه دارید و شماره مورد نظر را وارد کنید به همان خط باز خواهید گشت. البته توجه داشته باشید که فقط می توانید 10 خط را با این روش علامت گذاری بکنید و برای برداشتن علامت ها کافیست روی همان خط دوباره کلید Ctrl+shift و شماره‌ای که برای آن خط وارد کرده اید را بفشارید با اینکار علامت آن خط برداشته می شود.

ایجاد کلاس مورد نظر:
شما هنگامی که در قسمت Private و یا Public یک type، روال یا تابع درست کردید لازم دارید که قسمتی را برای قرار دادن کدهای مربوط به آن روال یا تابع را ایجاد کنید. برای اینکار شما پس از اینکه نام تابع را تایپ کردید می توانید کلیدهای Ctrl+Shift+C را فشار دهید تا دلفی یک قسمت برای نوشتن کدهای مورد نظرتان ایجاد کند.

ظاهر کردن پنجره Code insight:
شما حتما به اهمیت و مفید بودن این قسمت دلفی واقفید که در هنگام کد نویسی تا چه حد می تواند کارها را راحت کند. بله در هنگام وارد کردن کدها بعد از وارد کردن نام یک کلاس و یا Object با زدن یک نقطه (.) پنجره Code Insight‌ ظاهر می شود. حال در بعضی وقتها شما ممکن است که نقطه را قبلا وارد کرده باشید و یا در مواقع دیگر این پنجره ظاهر نشود. در این صورت برای اینکه پنجره را ظاهر کنید باید دوباره نقطه را وارد کنید ولی راه آسانتری هم وجود دارد و آن اینست که کلیدهای Ctrl+Speacebar را فشار دهید.

ظاهر کردن پنجره Code Parameter:
همانند بالا در هنگام ظاهر شدن Hint مربوط به راهنمای توابع که معمولاً بعد از گذاشتن پرانتز مربوط ظاهر میشود و در مورد پارامترهای لازم می باشد نیز می توانید از کلیدهای Ctrl+Shift+SpaceBar استفاده کنید.

رفتن از قسمت تعریف توابع و روالها به قسمت کد آنها:
همیشه این نیاز وجود خواهد داشت که شما در هنگامی که دارید به دنبال یک روال در قسمت type میگردید بعد از پیدا کردن نام آن می خواهید که خود آن تابع یا روال را نیز ببنید. برای اینکار خوب حتما نام آن را جستجو میکنید ولی یک راه آسانتر اینست که شما روی نام آن تابع قرار گیرید و کلیدهای Ctrl+Shift+Up/Down را بزنید. در اینحالت اگر روی کد تابع باشید به قسمت تعریف آن خواهید رفت.

توسط این کد می توانید تشخیص دهید که ویندوز چه مدت است که در حال اجراست:

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);

  h := t div ticksperhour;
  Dec(t, h * ticksperhour);

  m := t div ticksperminute;
  Dec(t, m * ticksperminute);

  s := t div tickspersecond;

  Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) +
    ' Minutes ' + IntToStr(s) + ' Seconds';
end;

//Sample

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := UpTime;
end;

If you forget your paradox table password, try out
on of these passwords, it works well.

for PARADOX 7.0 use this password: "jIGGAe" or "cupcdvum"
for PARADOX 5.0 use this password: same thing
for PARADOX 4.x (DOS) use this password: "nx66ppx"

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);
end;

function RunControlPanelApplet(sAppletFileName: string): Integer;
begin
  Result := WinExec(PChar('rundll32.exe shell32.dll,' +
                    'Control_RunDLL ' + sAppletFileName),
                    SW_SHOWNORMAL);
end;

{
  Filenames of some Applets:
  Dateinamen einiger Applets:

  Access.cpl   : Accessibility Properties
  Appwiz.cpl   : Add/Remove Programs Properties
  Desk.cpl     : Display Properties
  Inetcpl.cpl  : Internet Properties
  Intl.cpl     : Regional Settings Properties
  Joy.cpl      : Joystick Properties
  Main.cpl     : Mouse Properties
  Mmsys.cpl    : Multimedia Properties
  Modem.cpl    : Modems Properties
  Netcpl.cpl   : Network Properties
  Odbccp32.cpl : 32 bit ODBC Data Source Administrator
  Password.cpl : Password Properties
  Sysdm.cpl    : System Properties
  Themes.cpl   : Desktop Themes
  timedate.cpl : Time/Date Properties
  Wgpocpl.cpl  : MS Workgroup Post Office

}

{
  Example to show the "Display Properties" Applet:
  Beispiel, um das Applet "Eingenschaften von Anzeige" anzuzeigen:
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunControlPanelApplet('Desk.cpl');
end;

unit DBGridExportToExcel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,

 Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, DB, IniFiles, Buttons, dbgrids

, ADOX_TLB, ADODB;

type TScrollEvents = class
       BeforeScroll_Event: TDataSetNotifyEvent;
       AfterScroll_Event: TDataSetNotifyEvent;
       AutoCalcFields_Property: Boolean;
  end;

procedure DisableDependencies(DataSet: TDataSet;

var ScrollEvents: TScrollEvents);
procedure EnableDependencies(DataSet: TDataSet;

 ScrollEvents: TScrollEvents);
procedure DBGridToExcelADO(DBGrid: TDBGrid; FileName: string;

SheetName: string);

implementation

//Support procedures: I made that in order to increase speed in
//the process of scanning large amounts
//of records in a dataset

procedure DisableDependencies(DataSet: TDataSet; var

 ScrollEvents: TScrollEvents);
begin
     with DataSet do
          begin
               DisableControls;
               ScrollEvents := TScrollEvents.Create();
               with ScrollEvents do
                    begin
                         BeforeScroll_Event := BeforeScroll;
                         AfterScroll_Event := AfterScroll;
                         AutoCalcFields_Property := AutoCalcFields;
                         BeforeScroll := nil;
                         AfterScroll := nil;
                         AutoCalcFields := False;
                    end;
          end;
end;

procedure EnableDependencies(DataSet: TDataSet;

 ScrollEvents: TScrollEvents);
begin
     with DataSet do
          begin
               EnableControls;
               with ScrollEvents do
                    begin
                         BeforeScroll := BeforeScroll_Event;
                         AfterScroll := AfterScroll_Event;
                         AutoCalcFields := AutoCalcFields_Property;
                    end;
          end;
end;

//This is the procedure which make the work:

procedure DBGridToExcelADO(DBGrid: TDBGrid;

 FileName: string; SheetName: string);
var
  cat: _Catalog;
  tbl: _Table;
  col: _Column;
  i: integer;
  ADOConnection: TADOConnection;
  ADOQuery: TADOQuery;
  ScrollEvents: TScrollEvents;
  SavePlace: TBookmark;
begin
  //
  //WorkBook creation (database)
  cat := CoCatalog.Create;
  cat._Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=' + FileName + ';Extended Properties=Excel 8.0');
  //WorkSheet creation (table)
  tbl := CoTable.Create;
  tbl.Set_Name(SheetName);
  //Columns creation (fields)
  DBGrid.DataSource.DataSet.First;
  with DBGrid.Columns do
    begin
      for i := 0 to Count - 1 do
        if Items[i].Visible then
        begin
          col := nil;
          col := CoColumn.Create;
          with col do
            begin
              Set_Name(Items[i].Title.Caption);
              Set_Type_(adVarWChar);
            end;
          //add column to table
          tbl.Columns.Append(col, adVarWChar, 20);
        end;
    end;
  //add table to database
  cat.Tables.Append(tbl);

  col := nil;
  tbl := nil;
  cat := nil;

  //exporting
  ADOConnection := TADOConnection.Create(nil);
  ADOConnection.LoginPrompt := False;
  ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;

 Data Source=' + FileName + ';Extended Properties=Excel 8.0';
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConnection;
  ADOQuery.SQL.Text := 'Select * from [' + SheetName + '$]';
  ADOQuery.Open;

  DisableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);
  SavePlace := DBGrid.DataSource.DataSet.GetBookmark;
  try
  with DBGrid.DataSource.DataSet do
    begin
      First;
      while not Eof do
        begin
          ADOQuery.Append;
          with DBGrid.Columns do
            begin
              ADOQuery.Edit;
              for i := 0 to Count - 1 do
                if Items[i].Visible then
                  begin
                    ADOQuery.FieldByName(Items[i].Title.Caption).

AsString := FieldByName(Items[i].FieldName).AsString;
                  end;
              ADOQuery.Post;
            end;
          Next;
        end;
    end;

  finally
  DBGrid.DataSource.DataSet.GotoBookmark(SavePlace);
  DBGrid.DataSource.DataSet.FreeBookmark(SavePlace);
  EnableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);

  ADOQuery.Close;
  ADOConnection.Close;

  ADOQuery.Free;
  ADOConnection.Free;

  end;

end;

end.

طريقه انتخاب مجموعه ای از رکوردها در DBGrid  (فيلتر کردن رکوردهای انتحاب شده)

var
  x: Integer;
  BMList: array of TVarRec;
begin
  SetLength(BMList, dbgrid1.SelectedRows.Count);
  for X:=0 to dbgrid1.SelectedRows.Count - 1 do
  begin
    BMList[x].VType := vtPointer;
    BMList[x].VPointer := Pointer(dbgrid1.SelectedRows[x]);
    DataModule1.ADOTable1.GotoBookMark(BMList[x].VPointer);
  end;
  DataModule1.ADOTable1.FilterOnBookmarks(BMList);
end;

از این کد می توانید زبان فارسی را به ویندوز اضافه کنید.در این کد دو فایل وجود دارد که باید در کنار همین برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).

procedure AddFarsiLNG;
var Vreg:TRegistry;

begin
 
 CopyFile('l_intl.nls','C:\windows\system32\l_intl.nls',true);
 CopyFile('KBDFA.dll','C:\windows\system32\KBDFA.dll',true);
 
 Vreg:=TRegistry.Create;
  with Vreg do
   begin 
    try
     RootKey:=HKEY_LOCAL_MACHINE;
     OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\

Keyboard Layouts\00000429',true);
      WriteString('Layout File','KBDFA.dll');
      WriteString('Layout Text','Farsi');
     OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\

Nls\Locale',true);
      WriteString('d','1');
     OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\

Nls\Language',true);
      WriteString('0429','l_intl.nls');
     CloseKey; 
    finally Free end;
   end;
end;

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute (HWND(nil), 'open', 'taskmgr', '', '', SW_SHOWNORMAL);
end;

uses
  DDEMan;

procedure SearchInFolder(Folder: string);
begin
  with TDDEClientConv.Create(Self) do
  begin
    ConnectMode        := ddeManual;
    ServiceApplication := 'Explorer.exe';
    SetLink('Folders', 'AppProperties');
    OpenLink;
    ExecuteMacro(PChar('[FindFolder(, ' + Folder + ')]'), False);
    CloseLink;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchInFolder('c:\Windows');
end;

{************************************}

// Or even easier with ShellExecute:

ShellExecute(Handle, 'find', 'C:\Windows', nil, nil, SW_SHOW);

{************************************}

// Suchen-Dialog ausführen und einen Suchstring übergeben:

uses
  ShellAPI;

procedure WindowsSuchenDialog(Verzeichnis, Suchstring: string);
var
  hOtherWin, hFocusWin: HWND;
  OtherThreadID, iTimeOut: Integer;
  aDwordVar: DWORD;
  buf: array [0..40] of Char;
  sVerz: string;
begin
  // ShellExecute(application.handle, 'find', 'c:\', nil, nil, SW_SHOWNORMAL);
  // oder mit TDDEClientConv
  with TDDEClientConv.Create(nil) do
  begin
    ConnectMode := ddeManual;
    ServiceApplication := 'explorer.exe';
    SetLink('Folders', 'AppProperties');
    OpenLink;
    sVerz := IncludeTrailingBackslash(Verzeichnis);
    ExecuteMacro(PChar('[FindFolder(, '+ sVerz +')]'), False);
    CloseLink;
    Free;
  end;
  iTimeOut := 0;
  repeat
    { Warten, bis der Such Dialog erscheint.
      Unter Win95/98/NT4 hat der Suchdilaog die Klasse #32770.
      Unter ME/2000/XP ist die Suche in den Explorer integriert,
      darum auf CabinetWClass warten}
    Sleep(100);
    hOtherWin := GetForegroundWindow;
    buf[0] := #0;
    GetClassName(hOtherWin, buf, 60);
    inc(iTimeOut);
  until (StrComp(buf, '#32770') = 0) or (StrComp(buf, 'CabinetWClass') = 0) or (iTimeOut > 20);
  if iTimeOut > 20 then Exit;
  repeat
    { Wait until it is visible }
    { Warten, bis das Fenster erscheint }
    Sleep(100);
  until IsWindowVisible(hOtherWin);

  { Handle vom Control finden, welches den Fokus besitzt }
  OtherThreadID := GetWindowThreadProcessID(hOtherWin, @aDwordvar);
  if AttachThreadInput(GetCurrentThreadID, OtherThreadID, True) then
  begin
    hFocusWin := GetFocus;
    if hFocusWin <> 0 then
      try
        SendMessage(hFocusWin, WM_SETTEXT, 0, Longint(PChar(Suchstring)));
      finally
        AttachThreadInput(GetCurrentThreadID, OtherThreadID, False);
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowsSuchenDialog('c:\temp','test.txt');
end;

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case OSVer of
    VER_PLATFORM_WIN32_NT:
    // Win NT, 2000, XP:
        {connection_name = the name of the connection in "Network and
        DialUp Connections", logon = logon string, password

 = password string.
        All are separated by spaces.}
        ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password',

 nil, SW_HIDE);
        // disconnect:
        // ShellExecute(Handle, 'open', 'rasdial.exe', ' /disconnect', nil, SW_HIDE);
    VER_PLATFORM_WIN32_WINDOWS:
    // VERSION = 95, 98
       (*
      Dial Up Networking (DUN)

        module:
                RNAUI.DLL

      command:
                rundll32.exe rnaui.dll,RnaDial {name of connection to establish}
          result:
                displays the Connect To dialog for the passed connection
      *)

      ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
        PChar('rnaui.dll,RnaDial exact name of dialer entry TRACERT -h 1 -w 1'),nil,

 SW_NORMAL);
  end;
end;

 

ADOConnection1.ConnectionString

 := 'Server=Hostname;DataBase=DatabaseName
; ('  ADOConnection1.Open('UserName', 'Password
;  ADOConnection1.Connected := True

خروجی این فانکشن یک خروجی منطقی است.با این کد می توانید به سادگی تشخیص دهید که سطل زباله خالی است یا پر.

uses
  Activex, ShlObj, ComObj;

function RecycleBinIsEmpty: Boolean;
const
  CLSID_IRecycleBin: TGUID = (D1: $645FF040; D2: $5081; D3: $101B;
    D4: ($9F, $08, $00, $AA, $00, $2F, $95, $4E));
var
  EnumIDList: IEnumIDList;
  FileItemIDList: PItemIDList;
  ItemCount: ULONG;
  RecycleBin: IShellFolder;
begin
  CoInitialize(nil);
  OleCheck(CoCreateInstance(CLSID_IRecycleBin, nil, CLSCTX_INPROC_SERVER or
    CLSCTX_LOCAL_SERVER, IID_IShellFolder, RecycleBin));
  RecycleBin.EnumObjects(0,
    SHCONTF_FOLDERS or
    SHCONTF_NONFOLDERS or
    SHCONTF_INCLUDEHIDDEN,
    EnumIDList);
  Result := EnumIDList.Next(1, FileItemIDList, ItemCount) <> NOERROR;
  CoUninitialize;
end;

procedure TForm1.HideStartButton(AVisible: Boolean);
var
  Tray,Child,StartButtonHandle: HWnd;
  C: array[0..127] of Char;
  S: string;
begin
  Tray:=FindWindow('Shell_TrayWnd',nil);
  Child:=GetWindow(Tray,GW_CHILD);
  while Child<>0 do
  begin
    if GetClassName(Child,C,SizeOf(C))>0 then
    begin
      S:=StrPas(C);
      if UpperCase(S)='BUTTON' then
      begin
        StartButtonHandle:=Child;
        if AVisible then ShowWindow(Child,1)
        else ShowWindow(Child,0);
      end;
    end;
    Child:=GetWindow(Child,GW_HWNDNEXT);
  end;
end;

function DoExitWindows(RebootParam: Longword): boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: boolean;
const
  cSE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES
      or TOKEN_QUERY, TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil, cSE_SHUTDOWN_NAME,
        TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd, false, TTokenPvg, cbtpPrevious,
          rTTokenPvg, pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

طریقه فراخوانی:

DoExitWindows(EWX_REBOOT or EWX_FORCE);

Shake Form:

procedure TForm1.Button1Click(Sender: TObject);
var
N : Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 200 do begin  //shemordane tedade tekrar
Left:= (TL+Random(30));
Top := (TT+Random(30));
end;
Left := TL;
Top := TT;
end;

procedure TForm1.Button۱Click(Sender: TObject);

var
s:string;
sos:tlocateoptions;

begin

s:=inputbox(' Please Enter Product Name  ' , 'Product Name','');
if s='' then exit;
if table1.IsEmpty then
  begin
      Messagebox (0,pchar (' Database is Empty '),'Error',0);
      exit;
  end;
sos:=[lopartialkey]+[loCaseInsensitive];
if not table1.Locate ('Product Name' , s ,sos )
                      then showmessage (' Nothing ')
end;

ReStart Windows:

function DoExitWindows(RebootParam: Longword): boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: boolean;
const
  cSE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES
      or TOKEN_QUERY, TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil, cSE_SHUTDOWN_NAME,
        TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd, false, TTokenPvg, cbtpPrevious,
          rTTokenPvg, pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

 

 

   

Add Shellapi in uses then: => ابتدا -> ShellApi -> را به قسمت  -> Uses -> اضافه کنید

shellexecute(handle,'open','http://www.WOC.com',nil,nil,sw_show);

برای انجام این کار در رویداد OnCreate  فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :

  AnimateWindow(Form1.Handle, 300, AW_Center);

 

 از دیگر پارامترها استفاده کرد Ctrl+Space  می توان با استفاده از Aw_Center  به جای

 

procedure WindowShake(wHandle: THandle) ;
const   MAXDELTA = 4;
        SHAKETIMES = 500;
   var
     oRect, wRect :TRect;
     deltax : integer;
     deltay : integer;
     cnt : integer;
     dx, dy : integer;
   begin
 
GetWindowRect(wHandle,wRect) ;
oRect := wRect;
Randomize;
   for cnt := 0 to SHAKETIMES do
     begin     deltax := Round(Random(MAXDELTA)) ;
    deltay := Round(Random(MAXDELTA)) ;
    dx := Round(1 + Random(2)) ;
     if dx = 2 then dx := -1;
     dy := Round(1 + Random(2)) ;
      if dy = 2 then dy := -1;
       OffsetRect(wRect,dx * deltax, dy * deltay) ;
MoveWindow(wHandle, wRect.Left,wRect.Top,wRect.Right - wRect.Left,wRect.Bottom - wRect.Top,true) ;
      end;

MoveWindow(wHandle, oRect.Left,oRect.Top,oRect.Right - oRect.Left,oRect.Bottom - oRect.Top,true) ;
end;

در این روش ما چهار ماهواره را با سه LNB و یک دیش در یافت میکنیم ماهواره هائی را که میخواهیم در یافت کنیم عبارتند از :

1-Express AM 22 at 53 E 2 - Intelsat 902 at 62 E 3 - Intelsat 904 at 60 E 4 - LMI 1 at 75 E

روش کار بدین صورت است که ابتدا اینتل ست 902 (شبکه های استانی) را با دیش وLNB اصلی در یافت میکنیم پس از تنضیم این ماهواره که در 62 درجه شرقی واقع شده به سراغ ماهواره بعدی میرویم که اینتل ست 904 میباشد این ماهواره در 60 درجه شرقی قرار دارد به همین دلیل هم می توانیم هر دو اینتل ست را با یا یک LNB در یافت کنیم. همان جائیکه اینتل ست 902 را گرفته ایم دیش را حدود نیم سانت به راست انحراف داده و در واقع دیش را روی 61 درجه شرقی تنظیم میکنیم بعد از این کار متوجه میشویم که فر کانسهای هر دو ماهواره قابل در یافت است.

در حال حاضر ما دو ماهواره را با یک LNB در یافت کرده ایم پس از تنظیم دقیق به سراغ دو ماهواره دیگر یا LNB های فرعی میرویم. روش کار بدین صورت است کلا اگر ما جلوی دیش وروبروی آن بایستیم وظعیت LNB ها بدین صورت است : LNB اصلی و مرکزی که مشخص است. ال ان بی Express AM 22 at 53 E سمت راست بالای ال ان بی مرکز دیش قرار میگیرد همانطوری که نیل ست را روی دیش هات برد میگیریم البته با فاصله ای کمتر.

ال ان بی LMI 1 at 75 E هم پائین ال ان بی مرکز دیش سمت چپ قرار میگیرد همانطوری که عرب ست را روی دیش هات برد میگیریم البته باز هم با فاصله ای کمتر.

فاصله ال ان بی اکپرس تا ال ان بی اصلی حدود 10 سانت و فاصله ال ان بی ال ام آی تا ال ان بی اصلی حدود 11 سانت است. البته شاید برای تنظیم بسیار دقیق که از فرکانسهای ضعیف تری استفاده میشود این اعداد کمی تغیر کند البته خیلی کم. در ظمن من بدلیل اینکه نمیتوانم عکس بر روی سایت آپلود کنم این توضیحات را میدهم وگر نه عکسی از دیش خودم میگرفتم وبهتر مشخص میشد البته تمام دوستان استاد میباشند.

فر کانسهای نمونه وقوی جهت در یافت این ماهواره ها:

Intelsat 902 at 62 E = 10973 عمودی 27500

Intelsat 904 at 60 E = 11519 عمودی 12000

Express AM 22 at 53 E= 11044 عمودی 29800

LMI 1 at 75 E= 12518 عمودی 2200

دوستانی که تا کنون این ماهواره ها را دریافت نکر ده اند بهتر است که قبلا یکبار با یک دیش و ال ان بی بطور جدا این ماهواره ها را در یافت کنند تا کمی با جهت های آن و مدار آن وغیره آشنا شوند بعد اگر خواستند با یک دیش همه را بگیرند جحت در یافت هرکدام از اینها هم مدیر محترم این بخش زحمت آنرا کشیده اند وآموزش لازم را داده اند در همین بخش مراجعه کنید موجود است.

شما اگر از روش بالا استفاده کنید حدود70 کانال خواهید داشت 15 کانال آن که شبکه های داخلی واستانی خودمان است بقیه هم که حدود 60 کانال میباشد شبکه های روسی وروسی زبان است این 60 کانال روسی حقیقتا کانالهای خوبی هستند تقریبا یک سوم انها همیشه در حال پخش فیلم هستند(فیلمهای جالب) چندین کانال موزیک جذاب هم دارد در ماهواره LMI یک کانال X هم موجود است.

من در شیراز اینقدر کانال گرفته ام نواحی مرکزی ایران و شمال غربی و شرقی کشور کانالهای بیشتر در یافت میکنند مخصوصا از ماهواره اینتل ست 904 . اگر دوستان مایل بودند من تمام فر کانسها و نام کانال ها را برایشان میگذارم ولی لینک های مربوطه را قرار داده ام

ماهواره هاتبرد به همراه چند چهت دیگر روی یك دیش توسط فیتون های کشویی چند قلوه
ماهواره هاتبرد به همراه چند چهت دیگر روی یك دیش توسط فیتون های کشویی چند قلوهشما به چند طریق ذیل می توانید توسط فیتون های کشویی چند قلوه، هاتبرد را با چند ماهواره دیگر داشته باشید

*** توصیه می شود به علت آنکه فیتون خیلی سنگین نشود سه یا حداکثر چهار ال ان بی بروی هر دیش بسته شود***

اگر از دیش 90 استفاده می کنید می توانید با کیفیت خیلی خوب همزمان ماهواره های زیر را همراه هاتبرد بگیرید.

EUTELSAT W3 (7.0E) براحتی

EUTELSAT W1 (10.0E) براحتی

EUTELSAT W2 (16.0E) براحتی

EUTELSAT II-F3 (21.5E) با کمی دقت

ARABSAT 2A,2D,3A (26.0E) به راحتی

ASTRA 2A,2B,2D (28.2E) با کمی دقت

EUROBIRD 1 (28.5E) با کمی دقت

AMOS 1 (356.0E - 4.0W) با کمی دقت

ATLANTIC BIRD 3 (355.0E - 5.0W) به راحتی

NILESAT 101, 102 (353.0E - 7.0W) به راحتی

ATLANTIC BIRD 2 (352.0E - 8.0W) با کمی دقت

البته از ترکیب هاتبرد و نایلست و ترک 7 درجه (شکل) زیر خیلی استفاده می شود

http://www.dishiran.8m.net/fiton/hot1.jpg

http://www.dishiran.8m.net/fitondishpic/h_w3_n_2.jpg

http://www.dishiran.8m.net/fitondishpic/h_w3_n_1.jpg

فاصله مرکز تا مرکز ال ان بی هاتبرد تا یوتلست W3 حدود 7 سانتیمتر

فاصله مرکز تا مرکز ال ان بی هاتبرد تا نایلست حدود 23 سانتیمتر

 

گر از دیش 110 استفاده می کنید می توانید علاوه بر ماهواره های فوق ماهواره های زیر را همراه هاتبرد بگیرید.

ATLANTIC BIRD 1 (347.5E - 12.5W) به راحتی

TELSTAR 12 (345.0E – 15.0W) به راحتی

EUTELSAT SESAT,W4 (36.0E) به راحتی

EXPRESS A1R (40.0E) با کمی دقت

EURASIASAT 1 (42.0E) با کمی دقت

http://www.dishiran.8m.net/fiton/hot0.jpg

فاصله مرکز تا مرکز ال ان بی هاتبرد تا عربست حدود 15 سانتیمتر

فاصله مرکز تا مرکز ال ان بی هاتبرد تا یوتلست W3 حدود 7 سانتیمتر

فاصله مرکز تا مرکز ال ان بی هاتبرد تا آتلانتیک برد حدود 20 سانتیمتر

طریقه نصب telstar 12 و hotbird روی یک دیش 97سانتی
سلام
برای گرفتن هاتبرد و تل استار12 برروی دیش 97 کافی است هاتبرد را دقیق تنظیم کرده سپس
توسط قیچی فاصله ال ان بی هاتبرد و تل استار را 20 سانتی متر اندازه بگیریم.
حال اگر دیش را یک ساعت در نظر بگیریم و قیچی را عقربه این ساعت باید عقربه روی ساعت 5/1
باشد.
حالا فایندر را وصل کرده و برای جهت یابی از فرکانس 11494 عمودی 27500 استفاده می کنیم.
با کمی دقت و حوصله جهت قابل گرفتن است.

نکته :
1- نهایت کیفیت سیگنال در استرانگ 65% تا 70% است و در رسیور های دیگر سعی کنید تا
جایی که ممکن است کیفیت سیگنال را بالا برید.
2- بعلت پارازیتی که فعلا روی این فرکانس است حدالامکان این دوجهت را باهم نگیرید.

گرفتن سه ماهواره هند- روسیه -ایران
گرفتن سه ماهواره هند- روسیه -ایران

با سلام به دوستان عزیز قابل توجه دوستانی که مایلند چند جهت را بایک دیش دریافت کنند پیشاپیش از مدیر محترم این بخش تشکر میکنم بخاطر اینکه دوستان را جهت دریافت ماهواره های گوناگون راهنمائی میکنند

سه ماهواره ای را که میخواهیم با یک دیش در یافت کنیم عبارتند از: 1-LMI 1 at 75 Eیا همان شبکه های روسی 2-Intelsat 902 at 62 E یا همان شبکه های استانی خودمان 3- NSS 6 at 95 E یا همان شبکه های هندی

بدلیل پوشش خوب وقوی این ماهواره ها روی ایران به راحتی میتوان اینها را با یک دیش90 در یافت کردالبته داشتن دیش 110 در اینگونه موارد یک امتیاز محسوب میشود ولی با 90 هم براحتی قابل در یافت میباشد به دودلیل :یکی اینکه فاصله آنها بیش از20 درجه نمیباشد و دوم اینکه پوشش خوبی روی ایران دارند.

طریقه دریافت این ماهواره ها: ابتدا دیش را در جهت ماهواره روسیه یا LMI دقییق تنظیم میکنیم سپس به سراغ دو LNB فرعی میرومیم. فرض کنیم ما جلوی دیش ایستاده ایم نحوه قرار گیری LNB ها بدین صورت است: LNB ماهواره LMI در مرکز دیش قرار دارد LNB ماهواره NSS (هند) سمت چپ بالاتراز مرکزی قرار میگرد وLNB ماهواره Intelsat (شبکه های استانی) سمت راست وپایین LNB مرکزی قرار میگیرد.

فاصله ال ان بی ها بدین صورت است:فاصله ال ان بی NSS تا ال ان بی اصلی ومرکزی حدود 21.5 تا 22.5 سانت و فاصله ال ان بی اینتل ست یا شبکه های استانی تا ال ان بی مرکزی حدود 14 تا 15 سانت میباشد

فر کانسهای قوی جهت در یافت این ماهواره ها:

برای دریافت ماهواره روسیه از این فرکانس استفاده کنید: 12518 عمودی 22000

برای دریافت ماهواره هند از این فرکانس استفاده کنید : 12534 عمودی 27500

برای دریافت ماهواره ایران از این فرکانس استفاده کنید: 10973 عمودی 27500

دوستانی که برای بار اول این جهت ها میخواهند رصد کنند بهتر است که یکبار آنها را جدا جدا بگیرند تا با نحوه رد یابی انها آشنا شوند بعد اقدام به این کار کنند جهت راحتی کار .

برای رصد کردن این ماهواره ها در همین بخش مدیر محترم جناب جوجه خیس شده توضیحات لازم وکامل را ارائه کرده اند حتما از این مطالب استفاده کنید تا به راحتی بتوانید جهت ها را در یافت کنید

در ظمن حدود فاصله ال ان بی ها برای فرکانسهای قوی میباشد مسلما در فرکانسهای ضعیفتر شاید کمی تغیر بکند

اینهم آدرسهای مربوطه جهت مشخصات کانالها وفرکانسها:

http://www.lyngsat.com/i902.html

http://www.lyngsat.com/lmi1.html

http://www.lyngsat.com/nss6.html

 

دوستان راه خیلی آسان است کلیه دستگاهای جدید دارای دکمه تلتکس TEXT میباشند
بروی کانال tv5 fbs فرانسه رفته دکمه تلتکس رابزنید عدد 537 را وارد کنید مشاهده خواهید کرد
کلیه فرکانسها بروز شده رادر اختیار شما خواهد گذاشت
بدون دردسر کد رمز و اسکن و یا جستجو در سایتها برای فرکانس جدید
 
فركانس شبكه TV5 FBS بروي ماهواره هاتبرد
27500/11137

 

1- كابل از نوع نال مودم 
2- رسيور را خاموش كن و كابل را وصل كن 
3- رسيورنوع اولترا را در حالت استندباي قرار دهيد 
4- فايل زيپ مربوط به پچ را در محلي مناسب از هارد باز كن توجه كنيد كه فايل زيپ را بايد كامل باز كنيد 

5- لودر را اجرا كنيد 
6- درگاه مناسب را انتخاب كنيد 
7- استارت را بزنيد 
8- چند لحظه بعد پيغام boob  را خواهيد ديد 
9- تا اين لحظه فرصت انصراف داريد يعني اگر پيغام boob  را ok  نكنيد ميتوانيد صرف نظر كنيد و كابل را جدا كنيد و ادامه ندهيد 

10- براي ادامه اين پيغام را ok  كنيد

((( بعد از اين مرحله به هيچ چيز دست نزنيد هرگونه عملي ممكن است به رسيور اسيب بزند پس صبور باشيد و حدود  5  تا  7  دقيقه منتظر بمانيد  )))

11- برنامه ريزي شروع ميشود و روي پنل رسيور كلمه Load  ديده ميشود 
12- اعدادي را روي پنل ميبينيد كه شروع به اضافه شدن ميكنند و روي كامپيوتر درصد انتقال فايل زياد ميشود 
13- در  90  درصد روي پنل رسيور كلمه Save  ديده ميشود 
14- در  99  درصد كمي طول ميكشد ((عجله نكنيد رسيور هنگ نكرده)) و به چيزي دست نزنيد 
15- صبور باشيد 
16- رسيور ريستارت ميشود 
17- كار تمام است

توضيحات:
ريسيورهاي  550  اولترا كه تو بازار هستن بيشترشون برنامه  550  سوپر روشون نصب هستش!!
چون برنامه سوپر قابليت كددهي دستي رو دارن ولي اولترا نداره در عوض وقتي برنامه سوپر روي اولترا باشه ريسيور اولترا نميتونه از قابليت زوم پشتيباني كنه و سرعت ريسيور هم پايين مياد اين كار يعني نصب برنامه سوپر روي اولترا از شاهكارهاي بديع پروفسورهاي ريسيور فروشه كه به عقل خود كمپاني سازنده نرسيده :wink:
به هر حال باز انتخاب با خود شماست و اين رو هم اضافه كنم كه به راحتي ميشه برنامه رو عوض كرد يعني اگه برنامه خود اولترا رو نصب كنيد و يه وقت باز مجبور شيم كد دستي بديم ميشه به راحتي دوباره برنامه سوپر رو روي ريسيور اولترا نصب كرد
اين هم اخرين برنامه ا

http://home.ripway.com/2005-1/24593...550%20ultra.zip