Salah Al-Samawi

var SysPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SysPowerStatus); if Boolean(SysPowerStatus.ACLineStatus) then begin ShowMessage('System running on AC.'); end else begin ShowMessage('System running on battery.'); ShowMessage(Format('Battery p…

[ استخدم الدالة: procedure Startbutton(visi:boolean); var Tray, Child : 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©…

في Delphi7 انا استخدم هذه الطريقة: استخدم الاداة IdSMTP من قائمة Indy ثم ايتخدم كود مشابة لهذا: uses IdSMTP, IdMessage; procedure TForm1.Sendmail; var M: TIdMessage; SMTP: TIdSMTP; i:integer; begin M := TIdMessage.Create(nil) M.From.Text := 'sendfrom@mail.com'…

اذا لم تجدها في القائمة. يجب ان تقوم بتنزيلها من مجلد (Bin) الموجود في الدلفي من القائمة الرئيسية: Components->Install Packages->Add-> dclnmf70.bpl :)

اما اذا اردت ارسالل رسالة مع ملف ملحق : begin NMSMTP1.Host := ' mail.host.com '; NMSMTP1.UserID := ' Username '; NMSMTP1.Connect; NMSMTP1.PostMessage.FromAddress := ' your_mail@host.com '; NMSMTP1.PostMessage.ToAddress.Text := ' to@mail.com '; NMSMTP1.PostMess…

السلام عليكم أخي!!! ممكن ان تستعمل الاداة: TNMSMTP توجد عادتا في المجموعة 'Fastnet' مثال للاستخدام: procedure TForm1.Button1Click(Sender: TObject); begin with NMSMTP1 do begin Host := 'smtp.mailserver.com'; UserID := 'salah'; Connect; PostMessage.FromAddress :…

type TKeyType = (ktCapsLock, ktNumLock, ktScrollLock); procedure SetLedState(KeyCode: TKeyType; bOn: Boolean); var KBState: TKeyboardState; Code: Byte; begin case KeyCode of ktScrollLock: Code := VK_SCROLL; ktCapsLock: Code := VK_CAPITAL; ktNumLock: Code := VK…

// المتغيرات: var Dummy: integer = 0; OldKbHook: HHook = 0; implementation function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall; begin if code < 0 then Result := CallNextHookEx(oldKbHook, code, wparam, lparam) else Result := 1; end; …

شكرا أخي العزيز على الملاحظة القيمة :) ولكن جميع المشاركات المتواضعة التي شاركت بها حتى الآن بسيطة ولا تحتاج الى تدعيم بالصورز ولكن اعدل انني عندما يسمح لي الوقت بكتابة مواضيع كبيرة انني سوف ارفق بها الصور

function GetCPUSpeed: double; const DelayTime = 500; //الوقت يحسب باجزاء الثانية var TimerHi, TimerLo: DWORD; PriorityClass, Priority: integer; begin PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPrio…

procedure TForm1.Button1Click(Sender: TObject); var ndays: double; ticks: LongInt; btime: TDateTime; begin {الدالة GetTickCount تعطينا عدد أجزاء الثواني منذ تسجيل دخول الوندوز} ticks := GetTickCount; {لمعرفة عدد الأيام يجب قسمة ticks على 86400000 (42 ساعة *60د…

هذا الأمر يغير لغة الكيبورد الى اللغة التالية في قائمة اللغات: ActivateKeyboardLayout(HKL_NEXT, 0);

uses Printers; procedure PrintStrings(Strings: TStrings); var Prn: TextFile; i: word; begin AssignPrn(Prn); try Rewrite(Prn); try for i := 0 to Strings.Count - 1 do writeln(Prn, Strings.Strings ); finally CloseFile(Prn); end; except on EInOutError do MessageDl…

uses Printers; procedure PrintStrings(Strings: TStrings); var Prn: TextFile; i: word; begin AssignPrn(Prn); try Rewrite(Prn); try for i := 0 to Strings.Count - 1 do writeln(Prn, Strings.Strings ); finally CloseFile(Prn); end; except on EInOutError do MessageDl…

uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); c…

if GetSystemMetrics(SM_NETWORK) and $01 = $01 then ShowMessage('الكمبيوتر متصل بالشبكة المحلية!') else ShowMessage('الكمبيوتر ليس متصل بالشبكة المحلية!');

unit Net; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, ImgList, ExtCtrls; type TNetForm = class(TForm) ListView1: TListView; ImageList1: TImageList; Button1: TButton; Edit1: TEdit; Timer:…

للإتصال: WNetAddConnection(NetResourse, Password, LocalName: PChar): longint; حيث: NetResourse - المجلد الذي تريد الإتصال بة (مثال '\\P166\c') Password - باس ورد الريسورس المراد الإتصال بة إن وجد (في حالة عدم وجودة نضع السطر فارغ) LocalName - имя, اسم محرك الا…

uses WinInet; const MODEM = 1; LAN = 2; PROXY = 4; BUSY = 8; function GetConnectionKind(var strKind: string): Boolean; var flags: DWORD; begin strKind := ''; Result := InternetGetConnectedState(@flags, 0); if Result then begin if (flags and MODEM) = MODEM then…

أولا يجب أن تستورد InetIsOffline من URL.DLL function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL'; ثم يمكنك أن تستدعي الدالة في أي مكان من برنامجك مثال: if InetIsOffline(0) then ShowMessage('This computer is not connected to Internet!') e…