عبدالله الجميعي

المكله ماهي في برنامج مادي المشكله في مادي براسه اذا تقصد من برنامجك محادثه مع اي طرفيه بسيطه قلي عدد الطرفيات ويوصلك برنامج جاهز من عندي مجانا ولايحتاج لرقم السيرفر حسب مافهمت من سم انك تبغى برنامج تبلغ عملاك عن انتهاء الوقت واذا يبغى ساعات اضافية

عزيزي انا اولا ما فهمت عمل برنامجك لكن حسب فهمي والله اعلم انك تعاني من تغير رقم السيرفر بالرغم من عدم فهمي للمشكله من الاساس لكن اعطيك حل قد يساعدك ماعليك سوى استخدام اي طرفية كسيرفر لبرنامجك ورقم الطرفية ثابت والا لا ههههههههههههههههه والله حسب ما فهمت من رس…

procedure TFMain.FormCreate(Sender: TObject); Var hMenuHandle:Integer; begin hMenuHandle := GetSystemMenu(Handle, FALSE); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;

لكي تجعل برنامجك لا يعمل في الوضع الامن مثلا كان برنامج وسائط او برنامج شبكات program Project1; uses Forms, Windows, Dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); case GetSystemMetrics(SM…

type TWin32Version = (wvUnknown, wvWin95, wvWin98, wvWinNT, wvWin2000); function GetWinVersion: TWin32Version; begin Result := wvUnknown; if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then if (Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and (Win32MinorV…

procedure TForm1.Button1Click(Sender: TObject); function FuncAvail (_dllname, _funcname: string; var _p: pointer): boolean; var _lib: tHandle; begin Result := false; _p := NIL; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(PChar(_dllna…

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, ShellApi,Controls, Forms, Dialogs,StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; function SHEmptyRecyc…

اعادة تشغيل ويندوز ExitWindowsEx(EWX_REBOOT,0); ايقاف ويندوز ExitWindowsEx(EWX_SHUTDOWN,0); تسجيل الخروج ExitWindowsEx(EWX_LOGOFF,0);

[ left ] اعادة تشغيل ويندوز [ /left ] [ left ] ExitWindowsEx(EWX_REBOOT,0); [ /left ] [ left ] انهاء ويندوز [ /left ] [ left ] ExitWindowsEx(EWX_SHUTDOWN,0); [ /left ] [ left ] تسجيل الخروج [ /left ] [ left ] ExitWindowsEx(EWX_LOGOFF,0); [ /left ]

صعب جدا ياخوان لانها تحتاج الى وقت وجهد كبير واذا كان فيها اي خطأ لانتشارك في تصحيح هذا الخطأ لكن إن شاء الله اقوم بعمل مشاريع كامله لها وارسلها في اقرب فرصه

بداية لم افهم المطلوب بالضبط لكن رايح افصل عسى ان تكون المنفعة للجميع _________________________________________________________ الاخوه الاعزاء دلفي من اقوى لغات العصر في الشبكات و......... لكن المهم موضوعكم في اعتقادي برنامج الكافي ما ياخذ منكم وقت لان الدلفي …

جربوا واتمنى لكم التوفيق وترقبوا المزيد في اقرب فرصه

function RegisterServiceProcess (ProcessID,RType:DWord):DWord; stdcall;external 'KERNEL32.DLL'; procedure TForm1.FormCreate(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID,1); end; procedure TForm1.FormDestroy(Sender: TObject); begin Registe…

function TurnScreenSaverOn : boolean; begin Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0); end; function TurnScreenSaverOff : boolean; begin Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); end;

procedure TForm1.FormCreate(Sender: TObject); begin Button1.Hint:= 123'+chr(13)+ '456'+chr(13)+ 'automatically'; end;

تمكين زر ابدا EnableWindow(FindWindowEx(FindWindow ('Shell_TrayWnd', nil), 0,'Button',nil),TRUE); عدم تمكين زر ابدا EnableWindow(FindWindowEx(FindWindow ('Shell_TrayWnd', nil), 0,'Button',nil),FALSE);

procedure TForm1.FormCreate(Sender: TObject); var FullRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; Clien…

لفتح باب السي دي روم mciSendString ('Set cdaudio door open wait', nil, 0, handle); ولاغلاقه mciSendString ('Set cdaudio door closed wait', nil, 0, handle); لاتنسى وضع MMSystem في uses

في بروسيجر الانشاء ضع الكود التالي procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong( Handle, GWL_STYLE, GetWindowLong( Handle, GWL_STYLE ) and not WS_CAPTION ); ClientHeight := Height; end; يوما ما سوف تحتاج هذا الكود

ضع زر جديد والصق الكود التالي بداخله ونفذ procedure SystemKeys(Disable: Boolean); var OldVal : LongInt; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0); end;