WELCOME TO MY BLOG

Selasa, 28 Juni 2016

Pulau Rinca - Labuan Bajo - NTT



















Pantai Lasiana

Menikmati sunset yang begitu indah di Pantai Lasiana Kupang - NTT


Di Pantai Lasina kita dapat menikmati nikmatnya pisang gepeng dalam beberapa rasa seperti coklat kacang, coklat keju, gula kacang dan kelapa muda yang menyegarkan.





Selasa, 18 Februari 2014

Gua Jepang



Objek Peninggalan Sejarah Purbakala. Gua Pertahanan Jepang Peniggalan Perang Dunia Ke II


Gua Jepang ini terletak di Liliba, Kota Kupang - NTT

Pantai Air Mata

Pantai Air Mata yang terletak di Desa Air Mata, Kabupaten Kupang - NTT

Daerah sawah yang dilewati sebelum sampai ke Pantai Air Mata

Pantai Air Mata

Senin, 16 Juli 2012


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;