براي كار كردن با اين كليدها كافيه فقط براي فعال كردن آن مقدار كليد رو 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
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; FileName.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}
كافييه اي اسم پوشه اي رو كه مي خواهيد به نام بالا تغيير دهييد
براي باز كردا قفل پوشه مي تونيد از داس كمك بگيريد در داس براي تغغير نام پوشه از فرمان موو استفاده مي شود
اينم سورس فرمت كردن با دلفي
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;
<!-- 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()">