دسته
آمار وبلاگ
تعداد بازدید : 5496
تعداد نوشته ها : 5
تعداد نظرات : 2
Rss
طراح قالب

براي كار كردن با اين كليدها كافيه فقط براي فعال كردن آن مقدار كليد رو 1 كنيد و باري غير فعال كردنش مقدار كليد رو صفر كنيد

Disable CMD   

HKEY_CURRENT_USES/Software/Policies/Microsoft/windows/System/DisableCMD

Disable TaskMgr

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/System/DisableTaskMgr

Disable Add Or Remove Programs

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Uninstall/NoAddRemovePrograms

Disable Changing WallPaper

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/ActiveDesktop

Clear Recent Documents On Exit

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/ClearRecentDocsOnExit

Hide Clock And Lock Button

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/HideClock

Disable Active Desktop

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoActiveDesktop

Disable Add Printer

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoAddPrinter

Disable CD Burning

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoCDBurning

Disable Log Off From Start Menu

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/StartmenuLogoff

Disable Themes Tab

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoThemesTab

دسته ها :
جمعه ششم 5 1385
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
end; 
دسته ها :
جمعه ششم 5 1385

FileName.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}

كافييه اي اسم پوشه اي رو كه مي خواهيد به نام بالا تغيير دهييد

براي باز كردا قفل پوشه مي تونيد از داس كمك بگيريد در داس براي تغغير نام پوشه از فرمان موو استفاده مي شود

دسته ها :
جمعه ششم 5 1385

اينم سورس فرمت كردن با دلفي

type
TDiocRegisters = record
EBX, EDX, ECX, EAX, EDI, ESI, Flags: DWORD;
end;
TVWin32CtlCode = (ccNone, ccVWin32IntIoctl, ccVWin32Int26,
ccVWin32Int25, ccVWin32Int13);
TBiosParamBlock = packed record
BytesPerSector: Word;
SectorsPerCluster: Byte;
ReservedSectors: Word;
NumFats: Byte;
NumRootEntries: Word;
NumSectors: Word;
MediaID: Byte;
SectorsPerFat: Word;
SectorsPerTrack: Word;
NumHeads: Word;
HiddenSectors: Word;
Dummy1: Word;
TotalSectors: LongInt;
Dummy2: array[0..5] of Byte;
end;
TDeviceParamBlock = packed record
Special: Byte;
DeviceType: Byte;
DeviceAttr: Word;
NumCylinders: Word;
MediaType: Byte;
BiosParamBlock: TBiosParamBlock;
end;
TFormatParamBlock = packed record
Reserved: Byte;
Head: Word;
Cylinder: Word;
end;
function VWin32(CtlCode: TVWin32CtlCode; var Regs: TDiocRegisters): Boolean;
var
hDevice: THandle;
Count: DWORD;
begin
hDevice := CreateFile('\\.\VWIN32', 0, 0, nil, 0,
FILE_FLAG_DELETE_ON_CLOSE, 0);
Result := DeviceIoControl(hDevice, Ord(CtlCode), @Regs, SizeOf(Regs), @Regs, SizeOf(Regs), Count, nil);
CloseHandle(hDevice);
end;
function GetDeviceParamBlock(Drive: Char;
var ParamBlock: TDeviceParamBlock): Word;
var
Regs: TDiocRegisters;
begin
with Regs do
begin
EAX := $440D;
EBX := Ord(UpCase(Drive)) - Ord('@');
ECX := $0860;
EDX := LongInt(@ParamBlock);
VWin32(ccVWin32IntIoctl, Regs);
if (Flags and 1) <> 0 then
Result := LoWord(EAX)
else
Result := 0;
end;
end;
function SetDeviceParamBlock(Drive: Char;
var ParamBlock: TDeviceParamBlock): Word;
var
Regs: TDiocRegisters;
begin
with Regs do
begin
EAX := $440D;
EBX := Ord(UpCase(Drive)) - Ord('@');
ECX := $0840;
EDX := LongInt(@ParamBlock);
VWin32(ccVWin32IntIoctl, Regs);
if (Flags and 1) <> 0 then
Result := LoWord(EAX)
else
Result := 0;
end;
end;
function FormatTrack(Drive: Char;
var ParamBlock: TFormatParamBlock): Word;
var
Regs: TDiocRegisters;
begin
with Regs do
begin
EAX := $440D;
EBX := Ord(UpCase(Drive)) - Ord('@');
ECX := $0842;
EDX := LongInt(@ParamBlock);
VWin32(ccVWin32IntIoctl, Regs);
if (Flags and 1) <> 0 then
Result := LoWord(EAX)
else
Result := 0;
end;
end; 
دسته ها :
جمعه ششم 5 1385


<!--   DESCRIPTION:  This will make your text bounce in the
status bar of the browser.

 INSTRUCTIONS:  Place this script in the HEAD tags of
your webpage.  Then place the text you want to be bounced in
the area that says, "YOUR MESSAGE HERE". 

 FUNCTIONALITY: Works in both Netscape & IE.
-->

<SCRIPT LANGUAGE="JavaScript">
//Modified by CoffeeCup Software
//This code is Copyright (c) 1997 CoffeeCup Software
//all rights reserved. License is granted to a single user to
//reuse this code on a personal or business Web Site.

 

var yourtext = "* YOUR MESSAGE HERE! *";
var wedge1="                        ";
var wedge2="                        ";
var message1=wedge1+yourtext+wedge2;
var dir = "lside";
var speed = 50;

function bouncey() {

 if (dir == "lside") {
  message2=message1.substring(2,message1.length)+"  ";
  window.status=message2;
  setTimeout("bouncey();",speed);
  message1=message2;

  if (message1.substring(0,1) == "*") {
   dir="rside";
  }
 }

 else {
  message2="  "+message1.substring(0,message1.length-2);
  window.status=message2;
  setTimeout("bouncey();",speed);
  message1=message2;
  if (message1.substring(message1.length-1,message1.length) == "*") {
   dir="lside";
  }
 }
}

// -- End Hiding Here -->
</SCRIPT>

<body onLoad="bouncey()">

دسته ها :
جمعه ششم 5 1385
X