دخول

nabilkeb · 23-10-2009, 12:01 PM

41- منع البرنامج من الإغلاق (ALT+F4)

كود :
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose:=FALSE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end

42- الحد من أزرار شريط نافدة البرنامج (تعطيل زر الإغلاق):

كود :
procedure TForm1.Button1Click(Sender:TObject);
var
  handle: THandle;

begin
  handle:=GetSystemMenu(Self.Handle,false);
  RemoveMenu(handle, 8, mf_byposition);
  RemoveMenu(handle, 7, mf_byposition);
  RemoveMenu(handle, 6, mf_byposition);
  RemoveMenu(handle, 5, mf_byposition);
end;

43- التحويل من ASCII إلى ANSI

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  asciistring:string;
  ansistring: string;

begin
    asciistring:='??ü';
    OEMtoChar(PChar(asciistring), PChar(ansistring));
end;

44- فتح صندوق حوار التهيئة :
Uses: ShellAPI

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,Pchar('Open'),
Pchar('C:\Windows\Rundll32.exe'),
Pchar('Shell32.dll,SHFormatDrive'),
Pchar('C:\Windows'),SW_SHOWNORMAL);
end;

45- تشغيل أصوات النظام :

uses: mmsystem

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(pChar('SYSTEMSTART'),0,SND_ASYNC);
end;

أصوات أخرى :
SYSTEMSTART
SYSTEMEXIT
SYSTEMHAND
SYSTEMASTERISK
SYSTEMQUESTION
SYSTEMEXCLAMATION
SYSTEMWELCOME
SYSTEMDEFAULT

46- تشغيل برنامج آخر مثلا المفكرة :
uses: shellapi

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Shellexecute(handle,'open','notepad.exe','',nil,sw_shownormal);
// WinExec('C:\Windows\notepad.exe',SW_Show);
end;

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