Ketika jarak memisahkan kita

Dan komunikasipun mulai terputus

Aku tak kuasa menahan rindu ini

Rindu untuk bertemu dengan dirimu

Rindu yang hanya dapat aku pendam

Entah apa yang kamu rasakan

Apakah kamu memiliki rindu yang sama padaku

Tetapi inilah aku dengan segala keadaanku

Aku tidak bisa terlalu lama jauh darimu

Aku tak mampu menahan rindu yang merasuk jiwa

Aku ingin segera kembali lalui hari-hari bersamamu

Dan berada dalam dekapanmu ...

Aku ingin menjadikanmu masa depanku,

Lewati hari-hari bersama dengan dirimu

Akankah kesempatan itu menjadi milikku ???

Aku tidak tahu entah sampai kapan kita akan terus bersama,

Tetapi selama kesempatan bersama dengan dirimu masih ada

Aku akan selalu mengukir kisah dan kenangan indah bersama dengan dirimu

Yang tak lekang oleh waktu ...

AMQ, 18 Juni 2012

Kecemasan, ketakutan menyelimuti diriku

Semenjak ku tahu tentang kondisi dirimu

Aku takut kehilangan dirimu

Kamu adalah segalanya bagiku

Aku ada & bertahan sampai saat ini karena dirimu

Aku datang kali ini bukan untuk liburan,

Tetapi untuk menemani, memberi kekuatan, dukungan & menjagamu

Aku belajar menjadi kuat & tegar dari dirimu

Aku bukanlah wanita yang kuat seperti dirimu

Tetapi aku berusaha menutupi karapuanku dihadapanmu

& selalu tersenyum agar dirimu tidak kwatir dengan diriku

Aku tahu apa yang kamu pikirkan & yang kamu rasakan

Aku tahu perjuanganmu selama ini untukmu & untuk diriku

Kamu tidak pernah mengeluh dalam menjalani hari-harimu

Kamu selalu menutupi apa yang kamu alami

Bahkan mengenai penyakit yang kamu derita

MAMA, kamu adalah wanita yang penuh kasih sayang,

sabar, pengertian, kuat, tegar & sangat mencintai keluargamu

Aku bangga mempunyai & memilikimu

Aku hanya bisa berdoa agar aku dapat membahagiakan MAMA & PAPA

sebelum kalian pergi meninggalkan diriku

ataukah aku pergi meninggalkan kalian

Aku ingin selalu menjadi yang terbaik untuk kalian

Aku ingin selalu membahagiakan kalian

Meskipun harus mengorbankan kebahagiakan diriku

Aku sangat mencintai & menyayangi MAMA & PAPA

Untuk MAMA & PAPA

Shut down, reboot, logoff

SOURCE CODE DELPHI 7
Untuk : Windows 9x/NT/Me/2000/XP

function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,
                                       SE_SHUTDOWN_NAME,
                                       TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyExitWindows(EWX_REBOOT or EWX_FORCE);
end;

Empty recycle bin

SOURCE CODE DELPHI 7

procedure EmptyRecycleBin;
const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI = $00000002;
  SHERB_NOSOUND = $00000004;
type
  TSHEmptyRecycleBin = function(Wnd: HWND;
                                pszRootPath: PChar;
                                dwFlags: DWORD): HRESULT;  stdcall;
var
  SHEmptyRecycleBin: TSHEmptyRecycleBin;
  LibHandle: THandle;
begin  { EmptyRecycleBin }
  LibHandle := LoadLibrary(PChar('Shell32.dll'));
  if LibHandle <> 0 then @SHEmptyRecycleBin :=
      GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
  else
  begin
    MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
    Exit;
  end;
  if @SHEmptyRecycleBin <> nil then
    SHEmptyRecycleBin(Application.Handle,
                      nil,
                      SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
  FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EmptyRecycleBin;
end;