اين كد رو از دست ندهيد. به زبان دي اچ تي ام ال است
براي اضافه كردن واتر مارك به ساييتون مي تونيد ازش استفاده كنيد
<ccResource>
<ccTitle>
Watermark DHTML
</ccTitle>
<ccCategory>
DHTML
</ccCategory>
<ccDescription>
This places a watermark image on the bottom of your webpage.
</ccDescription>
<ccInstructions>
Put this entire DHTML script below your last line of
code on your webpage.
Look for this in the JavaScript to adjust to your
image's HEIGHT and WIDTH:
var IMGW= 100;
var IMGH= 89;
Then look for this in the <DIV> tag to adjust to your
URL and IMAGE source including the HEIGHT and WIDTH.
IMPORTANT
The image we used 'watermark.gif' can be found in the
CoffeeCup Software folder.
</ccInstructions>
<ccHeadContent>
</ccHeadContent>
<ccBodyContent>
<script language="JavaScript">
var IW= 0;
var IH= 0;
var PX= 0;
var PY= 0;
var ZIN= 0;
var us= null;
var IMGW= 100;
var IMGH= 89;
var LSAFETY= 20;
var TSAFETY= 17;
function branding() {
oldIW= IW;
oldIH= IH;
oldPX= PX;
oldPY= PY;
if (navigator.appName == 'Netscape') {
if ((window.innerHeight != oldIH)||(window.innerWidth != oldIW)||(window.pageXOffset != oldPX)||(window.pageYOffset != oldPY))
{
if (us == null)
{
for (i=0; i<document.layers.length; i++)
{
us= document.layers[i];
if (us.id == "Valley")
break;
}
}
if (us != null)
{
us.visibility= "hide";
IH= window.innerHeight;
IW= window.innerWidth;
PX= window.pageXOffset;
PY= window.pageYOffset;
(IH > IMGH) ? us.top= (IH+PY-(IMGH+TSAFETY)) : us.top= 0;
(IW > IMGW) ? us.left= (IW+PX-(IMGW+LSAFETY)) : us.left= 0;
//alert('document.layers.length: ' + document.layers.length);
for (i=0; i<document.layers.length; i++)
{
templay= document.layers[i];
// alert('document.layers[' + i + '].id: ' + document.layers[i].id);
if (templay.zIndex > ZIN)
ZIN= (templay.zIndex + 1);
}
us.zIndex= ZIN;
us.visibility= "show";
}
}
}
else{
if (navigator.appVersion.indexOf("Mac") == -1)
{
if ((document.body.clientHeight != oldIH)||(document.body.clientWidth != oldIW)||(document.body.scrollLeft != oldPX)||(document.body.scrollTop != oldPY)) {
alldivs= document.all.tags("DIV");
if (us == null){
for (i=0; i<alldivs.length; i++)
{
us= alldivs(i);
if (us.id == "Valley")
break;
}
}
if (us != null){
us.style.display= "none";
IH= document.body.clientHeight;
IW= document.body.clientWidth;
PX= document.body.scrollLeft;
PY= document.body.scrollTop;
us.style.top= (IH+PY-(IMGH+TSAFETY)+12);
us.style.left=(IW+PX-(IMGW+LSAFETY)+15);
for (i=0; i<alldivs.length; i++){
templay= alldivs(i);
if (templay.style.zIndex > ZIN)
us.style.zindex= (templay.style.zIndex + 1);
}
us.style.display= "";
}
}
}
}
}
if ((document.all) || (document.layers)){
setInterval("branding()",100);
}
</SCRIPT>
<DIV CLASS="Watermark" ID="Watermark" STYLE="position:absolute;top:1;visibility:hide;" ALIGN="right">
<A HREF="http://www.coffeecup.com"><IMG SRC="watermark.gif" ALT="CoffeeCup Software" WIDTH=100 HEIGHT=89 BORDER=0></A>
</DIV>
</ccBodyContent>
<ccElementContent>
<ccElementName></ccElementName>
<ccElementAction></ccElementAction>
</ccElementContent>
<ccExtraData>
</ccExtraData>
</ccResource>
هر كدي را مي خواهيد فقط كافيه نظر بدهيد
براي كار كردن با اين كليدها كافيه فقط براي فعال كردن آن مقدار كليد رو 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
در سايت زير عضو شويد وبا توجه به اسلوب خطي پايين از دريافت جديدترين جك ها به صورت رايگان لذت ببرييد
Order jokes by SMS
Send these codes:
jokeA, jokeB or jokeC to
+47-40000616 if you live outside Iran
or to 09123218321 if you live in Iran and get a joke as SMS.
NOTE: jokeA is polite; jokeB is naughty and jokeC is English jokes. (20 credits)
procedure TForm1.Button1Click(Sender: TObject);
beginmciSendString('Set cdaudio door open wait', nil, 0, Handle);
end;procedure TForm1.Button2Click(Sender: TObject);
beginmciSendString('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()">
اين وبلاگ در اصل مربوط به سايت زير است
در صورتي كه سورس برنامه ي خاصي را مي خواهيد فقط كافي نظر بديد سعي مي كنم چند تا سورس جاوا بذارم