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

سلام
مال اقا محمود رو با اين مقايسه نكردم.
اما اين تست شده.و كاملآ جواب ميده.

نقل قول:

---

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

hp بررسي كانكت كامپيوتر به اينترنت

کد:

---

procedure TForm1.Button1Click(Sender: TObject) ;

  function FuncAvail(_dllname, _funcname: string;
                     var _p: pointer): boolean;
  {return True if _funcname exists in _dllname}
  var _lib: tHandle;
  begin
   Result := false;
   if LoadLibrary(PChar(_dllname)) = 0 then exit;
   _lib := GetModuleHandle(PChar(_dllname)) ;
   if _lib <> 0 then begin
    _p := GetProcAddress(_lib, PChar(_funcname)) ;
    if _p <> NIL then Result := true;
   end;
  end;

  {
  Call SHELL32.DLL for Win < Win98
  otherwise call URL.dll
  }
  {button code:}
  var
   InetIsOffline : function(dwFlags: DWORD):
                   BOOL; stdcall;
  begin
   if FuncAvail('URL.DLL', 'InetIsOffline',
                @InetIsOffline) then
    if InetIsOffLine(0) = true
     then ShowMessage('Not connected')
     else ShowMessage('Connected!') ;
  end;

---

نيك باشيد

---

دوست عزيز.
اين كدا رو كه مينويسي همش ميگه آنلايني.
حتي اگه آفلاين باشي.

چرا؟

سلام دوستان ...
از امروز سورس برنامه هاي كوچيك و جالب رو هم توي اين تاپيك مي زاريم ...
سورس یه برنامه که نام دکمه استارت ویندوز رو تغییر می ده : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ( حجم : 168 كيلوبايت )
منتظر نظرات و سورسهاي بقيه دوستان هم هستم ...
موفق باشيد ...

نقل قول:

---

سلام
مال اقا محمود رو با اين مقايسه نكردم.
اما اين تست شده.و كاملآ جواب ميده.

---

سلام سولجر جان ...
كدي كه من گذاشتم هم همون بود ...
ولي آقا يا خانم hp کدی می خوان که کل فرمشون رو بیضی کنه ( یعنی که تمام اجزای فرمشون توی اون بیضی قرار بگیرن )
به نظر تو این جوری می شه ؟ !! ( ولی در برنامه نویسی هیچ چیز غیر ممکن نیست )
فکر کنم که باید یه عکس جای فرمش بزاره و اون عکس بشه فرمش ( حالا بیضی باشه یا ... )
...

سلام به همگي چرا كسي حركتي نميزنه
مرد مباح من نميدونم چرا؟؟؟؟؟؟؟؟؟؟

حسام جان.
خودت تست كردي و يا از روي يك كتاب نوشتي؟
اگه از روي كتابه هميشه نميشه بهش اعتماد كرد ولي اگه خودت نوشتي ببين چرا و اصلاحش كن.

روي كامپيوتر خودت امتحانش كردي؟ جواب داده؟

:laughing: اول سلام
دوم اینکه مرد مباح اون کد موقع گشت گذار توی یه سایت پیدا کردم فکر کنم About بود
================================================
و اما امروز

کد:

---

procedure TFRM_Main.DBG_MainGetCellParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; Highlight: Boolean);
begin

if (Field.AsString = '0') and (Field.FullName = 'LoadingAttn') then
begin
Background := $00E69B00;
AFont.Color := clBlack;
AFont.Style := AFont.Style + [fsBold];
end
else
begin
if (Field.AsString = '0') and (Field.FullName = 'DeliveryAttn') then
begin
Background := $0082FFFF;
AFont.Color := clBlack;
AFont.Style := AFont.Style + [fsBold];
end
else
begin
if (Field.AsString = 'H') and (Field.FullName = 'EctaCode1') then
begin
Background := $008080FF;
AFont.Color := clBlack;
AFont.Style := AFont.Style + [fsBold];
end
else
begin
AFont.Color := clBlack;
AFont.Style := AFont.Style - [fsBold];
Background := clWhite;
end;
end;
end;


end;

---

سلام به همگی
میخواستم بدونم که چرا کسی نه چیزی میگه نه قطعه کدی میزاره فقط نگاه می کنیدو میرید؟
:sad: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :grrr: :grrr: :grrr: :grrr: :grrr: :grrr: :grrr: :weird: :weird: :weird: :weird: :weird: :weird: :weird: :weird: :weird: