دخول

nabilkeb · 09-09-2009, 10:18 PM

18- تشغيل البرنامج مع اقلاع الويندوز :

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
 reg: TRegistry;
begin
 Reg := nil;
 try
   reg := TRegistry.Create;
   reg.RootKey := HKEY_LOCAL_MACHINE;
   reg.LazyWrite := false;
   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',[COLOR=Sienna]false[/COLOR]);
   reg.WriteString('Default',ExtractFilePath(Application.ExeName)+Application.ExeName);
   reg.CloseKey;
   reg.free;
 except
   if Assigned(Reg) then Reg.Free;

 end;
end;

19- اجبار Edt من قبول الأرقام فقط ، أو الحروف فقط:

كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  (Key in ['0'..'9', #8]) then
  begin
    Key := #0;
    Beep;
  end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if  not(Key in ['0'..'9', #8]) then
  begin
    Key := #0;
    Beep;
  end;
end;

20- افراغ كل محتويات الجدول:

كود :
while not Table1.IsEmpty do Table1.Delete;

أو:

كود :
Table1.close;
Table1.emptytable;
Table1.Open;

مع وجود فارق بين الطريقتين.

21- فتح و غلق قارئ الأقراص:

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
mcisendstring('set cdaudio door open wait',nil,0,GetDesktopWindow)// metez closed ou open

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mcisendstring('set cdaudio door closed wait',nil,0,GetDesktopWindow)
end;

MasterSource-22 ____ مرفق

23- التعامل مع الرسائل في دلفي ___ مرفق

24- انشاء - فتح / ملف أو مجلد ___ مرفق

25-System_SourceCodes ____ مرفق

26- WindowsExit ______ مرفق

27- كيفية إظهار مربع الإتصال بإنترنت وكيفية إختبار إذا كنا متصلين بإنترنت أو لا

كود :
[COLOR=#000000][COLOR=#0000BB]
[/COLOR][/COLOR]function InternetConnected: Boolean; 
CONST 
  INTERNET_CONNECTION_MODEM      = 1;  
// local system uses a modem to connect to the Internet. 
  INTERNET_CONNECTION_LAN        = 2;  
// local system uses a local area network to connect to the Internet. 
  INTERNET_CONNECTION_PROXY      = 4;  
// local system uses a proxy server to connect to the Internet. 
  INTERNET_CONNECTION_MODEM_BUSY = 8; 
 // local system's modem is busy with a non-Internet connection. 
VAR 
  dwConnectionTypes : DWORD; 
BEGIN 
  dwConnectionTypes := 
    INTERNET_CONNECTION_MODEM + 
  INTERNET_CONNECTION_LAN + 
  INTERNET_CONNECTION_PROXY; 
  Result := InternetGetConnectedState(@dwConnectionTypes,0); 
END;

من أجل فتح مربع الإتصال بإنترنت :

كود :
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle)
 then 
    MessageDlg('لايوجد إتصال', mtError, [mbOk], 0); 
 end;

من أجل إختبار إذا كنا متصلين بإنترنت أو لا :

كود :
procedure TForm1.Button2Click(Sender: TObject); 
begin 
if InternetConnected then 
showmessage('متصل حاليا بإنترنت') 
else begin 
showmessage('غير متصل بإنترنت'); 
InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle); 
end; 
end;

28- تحويل الصورة من BMP إلى JPG

كود :
var jpg:TJPEGImage; 
begin 
jpg:=TJPEGImage.Create; 
with jpg do begin 
Assign(Image1.Picture.Bitmap); 
SaveToFile('my jpeg.jpg'); 
end; 
    end;

29- قلب زر الماوس من اليمين إلى اليسار و العكس :

كود :
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, NIL, 0);

كود :
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, NIL, 0);

30- اخفاء سطح المكتب :

كود :
procedure Desktop(Desk:boolean); 
begin 

DID := FindWindow('progman', nil); 
if DID <> 0 then 
begin 
 if Desk then 
   ShowWindow(DID, SW_SHOW) 
 else 
   ShowWindow(DID, SW_HIDE); 
 Desk := not(Desk); 
end; 

end

الإخفاء أو الإظهار :

كود :
Desktop(False);

كود :
Desktop(True);

31- تشغيل شاشة التوقف برمجيا :

كود :
function TScreenSaver : BOOL; 
var 
B_1 : bool; 
begin 
result := false; 
if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 
                        0, 
                        @B_1, 
                        0) <> true then exit; 
if not B_1 then exit; 
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0); 
result := true;

ثم:

كود :
[COLOR=#000000][COLOR=#0000BB]
[/COLOR][/COLOR]TScreenSaver;

32- تهيئة القرص المرن:

كود :
[COLOR=#000000][COLOR=#0000BB]
[/COLOR][/COLOR]const 
SHFMT_ID_DEFAULT = $FFFF; 
SHFMT_OPT_QUICKFORMAT = 0; 
SHFMT_OPT_FULLFORMAT = 1; 
SHFMT_OPT_SYSONLY = 2; 

SHFMT_ERROR = -1; 
SHFMT_CANCEL = -2; 
SHFMT_NOFORMAT = -3; 


var 
Form1: TForm1; 

implementation 

{$R *.dfm} 
function SHFormatDrive(hWnd : HWND; Drive : Word;  fmtID : Word; Options : 
Word) : Longint; stdcall; 
external 'Shell32.dll' name 'SHFormatDrive'; 

procedure DiskFormat(Drive:Char); 
var 
RetCode : Integer; 
begin 
retCode:= SHFormatDrive(GetDesktopwindow, 
          Ord(Upcase(Drive))-Ord('A'), 
          SHFMT_ID_DEFAULT, 
          SHFMT_OPT_QUICKFORMAT); 
end; 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
DiskFormat('A'); 
end;

..... / ..... يتبع ...../.....

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة