Tag

desktop

  • Total Source Code 4
  • Total Page : 1
  • You currently on page number : 1

Make the dektop icon text transparent

  • 24 December 2013
  • 180
  • desktop,transparent,icon,text

uses Commctrl; var hLV: THandle; procedure TForm1.GetDesktopListViewHandle; var s1: String; begin hLV := FindWindow(''ProgMan'', nil); hLV := GetWindow(hLV, GW_CHILD); hLV := GetWindow(hLV, GW_CHILD); SetLength(s1, 40); GetClassName(hLV, PChar(s1), 39); if PChar(s1) ''SysListView32'' then ShowMessage(''Failed''); end; procedure Read more


Hide desktop Icon

  • 30 December 2013
  • 185
  • hide,desktop,icon

// Hide icons on the Desktop procedure TForm1.Button2Click(Sender: TObject); begin ShowWindow(DesktopListViewHandle, SW_HIDE); end; procedure TForm1.FormCreate(Sender: TObject); begin DesktopListViewHandle:=FindWindow(''ProgMan'', nil); DesktopListViewHandle:=GetWindow(DesktopListViewHandle, GW_CHILD); DesktopListViewHandle:=GetWindow(DesktopListViewHandle, Read more


Change Desktop Wallpaper Windows

  • 16 January 2014
  • 202
  • wallpaper,desktop,windows

  unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry, Buttons, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; Edit1: TEdit; SpeedButton1: TSpeedButton; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Read more


Know the number of odd or even !

  • 18 March 2014
  • 263
  • vb,desktop

  Module Number Sub main() Dim Num As Integer Console.Write(" Input the Number = ") Num= Console.ReadLine() Console.WriteLine() If Num Mod 2 = 0 Then Console.WriteLine("The Number is even") Else Console.WriteLine("The Number is odd") End If End Sub End Read more




Category