این کد زمان را به طور دقیق بر روی دسکتاپ نقش می کند.اگر // اولی را بردارید فرم مخفی می شود و فقط ساعت نمایش داده می شود.و اگر // دومی را بردارید پس زمینه ساعت حذف می شود.

procedure TForm1.Timer1Timer(Sender: T);
var
 d:TDateTime;
 x:integer;
 str:String;
begin
// form1.Hide;
  desktopcanvas:=TCanvas.Create;
  desktopcanvas.Handle:=GetDC(HWND_DESKTOP);
  d:=Time;
  str:=TimeToStr(d);
//desktopcanvas.Brush.Style:=bsClear;
  desktopcanvas.Font.Color:=clRed;
  desktopcanvas.Font.Name:=("tahoma");
 desktopcanvas.Font.Size:=20;
  desktopcanvas.TextOut(12,12,str);
 SetBkMode(Canvas.Handle,x);

به درخواست یکی از عزیزان این کد را نوشتیم و در وبلاگ گذاشتیم.با این کد می توانید زبان فارسی را به ویندوز اضافه کنید.در این کد دو فایل وجود دارد که باید در کنار همین برنامه قرار گیرد.(فایلها را می توانید در سی دی ویندوز پیدا کنید).("KBDFA.dll" و "l_intl.nls")

procedure AddFarsiLNG;
var Vreg:TRegistry;

begin
 //Copy Files
 CopyFile("l_intl.nls","C:\windows\system32\l_intl.nls",true);
 CopyFile("KBDFA.dll","C:\windows\system32\KBDFA.dll",true);
 //Create Registry Values
 Vreg:=TRegistry.Create;
  with Vreg do
   begin 
    try
     RootKey:=HKEY_LOCAL_MACHINE;
     OpenKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000429",true);
      WriteString("Layout File","KBDFA.dll");
      WriteString("Layout Text","Farsi");
     OpenKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Locale",true);
      WriteString("d","1");
     OpenKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language",true);
      WriteString("0429","l_intl.nls");
     CloseKey;  
    finally Free end;
   end;
end;

یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها:

function CustomMsg(const DlgCaption,Text:string; MsgType:TMsgDlgType; Buttons:TMsgDlgButtons):integer;
var
  MsgBox   : TForm;
  i        : byte;
  PicWidth : integer;
begin
  MsgBox := CreateMessageDialog(Text,MsgType,Buttons);
  try
    //Change TEXT Properties
    with (MsgBox.Controls[1] as Tlabel) do
    begin
      Font.Name := "Tahoma";
      Font.Style := Font.Style + [fsBOLD];
      Font.Size := 8;
      WordWrap := False;
    end;
    //Change Messagebox Properties
    with MsgBox do
    begin
//      BiDiMode := bdRightToLeft;
      Font.Name := "Tahoma";
      Font.Size := 8;
      Caption := DlgCaption;
      Width := (Controls[0] as TImage).Width +
               (Controls[1] as Tlabel).Width + 100;
    end;
  //Change Buttons" caption
    for i := 0 to MsgBox.ControlCount-1 do
      if (MsgBox.Controls[i] is TButton) then
        with (MsgBox.Controls[i] as TButton) do
        begin
          if      (UpperCase(Caption) = "&OK")         then Caption := "EC??I"
          else if (UpperCase(Caption) = "&YES")        then Caption := "E??"
          else if (UpperCase(Caption) = "&NO")         then Caption := "I??"
          else if (UpperCase(Caption) = "CANCEL")      then Caption := "C???C?"
          else if (UpperCase(Caption) = "&ABORT")      then Caption := "?U?"
          else if (UpperCase(Caption) = "&RETRY")      then Caption := "I?EC??"
          else if (UpperCase(Caption) = "&IGNORE")     then Caption := "?I"
          else if (UpperCase(Caption) = "&ALL")        then Caption := "???"
          else if (UpperCase(Caption) = "N&O TO ALL")  then Caption := "I?? E? ???"
          else if (UpperCase(Caption) = "YES TO &ALL") then Caption := "E?? E? ???"
          else Caption := "?C???C";
        end; {with}
    Result := MsgBox.ShowModal;
  finally
    MsgBox.Free;
  end; {try}
end;

مثال:

procedure TForm1.Button1Click(Sender: T);
begin
 CustomMsg("caption","this is a test for delphi center",mtWarning,mbOKCancel)
end;

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

 

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); 
  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;

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

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

function DownloadWeb(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  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;

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

 

uses
  DDEMan;

procedure TForm1.Button1Click(Sender: T);
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;

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

 

 

 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.");

با 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 را فشار دهید .

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