Teks Berjalan Pada Form Caption

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Old_Title : String;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := ‘Selamat Belajar Delphi ‘;
Old_Title := Application.Title;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
temp : string;
begin
Temp := Application.Title;
Temp := Temp+Temp[1];
Temp := Copy(Temp,2,length(temp)-1);
Application.Title := temp;
Form1.Caption:=temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := NOT Timer1.Enabled;
if Timer1.Enabled = False then
begin
Application.Title := Old_Title;
Form1.Caption := Old_Title;
end;
end;
end.

Read more »

Aplikasi bisa dijalankan sekali saja

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
NamaAtom =’Program versi demo‘;

implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
atom : integer;
begin
if GlobalFindAtom(NamaAtom) = 0 then
atom := GlobalAddAtom(NamaAtom)
else
begin
ShowMessage(‘Program ini hanya dapat dijalankan sekali dalam satu sesi Windows’ + #10 + #13 +
‘Untuk menjalankan program ini lagi, restart komputer Anda atau silakan‘ + #10 + #13 +
‘REGISTER !!‘);
Application.Terminate;
end;
end;
end.

Read more »

Terjemah Al Quran

http://qurancomplex.com/Quran/Targama/Targama.asp?TabID=4&SubItemID=1&l=ind&t=ind&SecOrder=4&SubSecOrder=1

Read more »

Minimize Form Saat Di Close

Minimize Form Saat Di Close

Trik me-minimize from saat Close Button pada form di klik, biasanya digunakan pada aplikasi yang menggunakan TrayIcon.

Biasanya aplikasi-aplikasi yang menggunakan Tray Icon, pada interface nya tidak menyediakan tombol minimize, yang ada hanya tombol close (tombol yang saya maksud: kotak yang ada tanda silangnya, berada di pojok kanan atas form).

Edit event Form onCloseQuery.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //Perintah agar Form tidak dapat di Close
  CanClose:= False;
  //Minimize
  Application.Minimize;
end;

Kode di atas hanya contoh singkatnya saja, untuk lebih lengkapnya:

var
  cClose: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cClose:= False;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= cClose;
  if not cClose then Application.Minimize;
end;

//Jika Button1 di-klik maka form akan ditutup.
procedure TForm1.Button1Click(Sender: TObject);
begin
  cClose:= True;
  Close;
end;

Read more »

Embed TV Indosiar

<center><center><iframe align="middle" frameborder="0" marginheight="0" marginwidth="0" height="320" src="http://www.reogtv.co.cc/player.swf?config=indo.xml" scrolling="no" width="425"></iframe><center><center></a></center>

Read more »

Disable Task Manager in Windows 7

How to Disable or Enable Task Manager in Windows 7

Problem

I just start to use windows 7 system, and I want to optimize my system, so I want to know how to disable or enable task manager in windows 7. I hope someone can help me.

Solution

Disable Task Manager in Windows 7

1. Click the "Start" button, and type "regedit" in the search box.
   
2. Browse the list as
   HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\System.
   
3. Create a new 32-bit DWORD value.
   
4. Name it DisableTaskMgr.
   
5. Double click on it to set its value data to 1.
   

Enable Task Manager in Windows 7
Double click on the value named DisableTaskMgr to set its value data to 0.

Source : http://www.recipester.org/Recipe:Disable_or_Enable_Task_Manager_in_Windows_7_39287687

Read more »

Tray Icons Be Gone

Do you need to hide a program running in the background that shows in your System Tray? Try this reg hack to hide all tray icons. It’s not anything like the Windows XP tray icon hider, this one shows no trace of any icons. It would look like someone closed all background programs.


1) Click on START>RUN and type "regedit" (without the quotes).
Navigate to the following key;

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer

2) Add a "REG_DWORD" entry entitled "NoTrayItemsDisplay". Open it up and assign the Hex value of 1 to hide the Icons. The value of 0 is normal (default), showing the icons.

3) Close "regedit" and reboot computer and the icons should not be there anymore. Control Alt and Delete will bring up Windows Task Manager and items can be displayed and closed (if need be) from in there instead.

Or Try This

write the following code in notepad and save it such as "edit.reg" without the quotes and run it.

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoTrayItemsDisplay"=dword:00000000

after that go to taskmanager by alt+ctrl+delete to processess and terminate the explorer process and go to file start new process and write "explorer.exe" with out the quotes.
see the changes

Read more »