INGGRIT JUNITA
Selasa, 28 Juni 2016
Pantai Lasiana
Selasa, 18 Februari 2014
Gua Jepang
Pantai Air Mata
Jumat, 03 Agustus 2012
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;
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;
Langganan:
Postingan (Atom)