نکته های ریز در دلفی (تکه برنامه های دلفی)

سلام به دوست داران دلفی
این بحث و باز کردم که بتونیم از تجارب همدیگه استفاده کنیم
ممنون می شم اگه کسی تکه کد یا برنامه جالبی داره اینجا بزاره :cool: :laughing:

اینم اولیش
با اين تكه كد مي تويد با قرار دادن توي يك دكمه يا تايمر بعد از يك مدت خواص مانيتور را خاموش كرد.

کد:

---

Monitor stand by
Uses Shellapi;
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0) ;

---

دوستان لطف كنيد كدها رو توي html وارد كنيد.
قبل از نوشتن كدها هم يك توضيح مختصر فارسي دربارش بنويسيد.

حسام جان.
لطفا پست بالا رو هم اصلاح كن.
ممنون

سلام
مرد مباح دیگه این هم توضیح می خواد.
راستی من باز کردن و بستن سی دی رام رو می نویسم.
کد باز کردن سی دی رام : mciSendString('Set cdaudio door open wait',nil, 0, Handle);
کد بستن سی دی رام : mciSendString('Set cdaudio door closed wait',nil, 0, Handle);

سلام
مرد مباح دیگه این هم توضیح می خواد.
راستی من باز کردن و بستن سی دی رام رو می نویسم.
کد باز کردن سی دی رام : mciSendString('Set cdaudio door open wait',nil, 0, Handle);
کد بستن سی دی رام : mciSendString('Set cdaudio door closed wait',nil, 0, Handle);

سولجر جان.
اولا 4 نفر ميفهمن كه اين كد چيه.
ثانيا وقتي پستها زياد بشه دوستان راحت يتونن دنبال يك چيز خاص بگردن.

سولجر جان.
شما هم لطف كن و كدهاتو توي html قرار به كه درست ديده بشن.

ممنون

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

سلام ...
منم يه دونه مي زارم :
ساختن فرم به شكلي غير از مربع :
به كد زير نگاه كنيد :

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
var n:Integer;
begin
n:=CreateEllipticRgn(10,10,200,300);
SetWindowRgn(Form1.Handle , n , True);
end;

---

تو كد بالا و در خط اول يك بيضي مي سازيم و توي خط دوم بيضي رو با فرم خودمون Set مي كنيم ...
موفق باشيد ... ;)

رفقا من يك كتاب به شما معرفي ميكنم كه خيلي از اين فوت و فنها توش هست.
اگه ندارين و فكر كردين كه دنبالش رفتن براتون سخته, بگين كه من چندتا از برنامههاي خفنشو بزارم.

اسم اصلي كتاب Programs in Delphi است كه شمال 296 برنامه كاربردي و حرفه اي است و در روي جلد آن بزرگ نوشته دلفي 6.
البته يكي هم براي دلفي 7 اومده كه فقط اونو ديدم و ندارم.
اولي جلد زرد با رگه هاي سبز و دومي جلد خاكستري با رگه هاي سبز يشمي.

هر دو كتاب از نشر ناقوس است.

خوب اول سلام گرم به مرد مباح وسلجر جان و آقا محمود گل
خوبه اميدوارم كه گفتمان خوبي اينجا راه بندازيم
خوب اينم از توضيح عنوان معلومه كه براي چه كاريه
در حقيقت history اينترنت اكسپلور را در مياره و نشون ميده

کد:

---

 uses registry;

procedure ShowTypedUrls(Urls: TStrings);
var
  Reg: TRegistry;
  S: TStringList;
  i: Integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then
    begin
      S := TStringList.Create;
      try
        reg.GetValueNames(S);
        for i := 0 to S.Count - 1 do
        begin
          Urls.Add(reg.ReadString(S.Strings[i]));
        end;
      finally
        S.Free;
      end;
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;
//مثال
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowTypedUrls(ListBox1.Items);
end;

---