MEMBUAT TEXS BERJALAN PADA DELPHI 7

MEMBUAT TEXS BERJALAN PADA DELPHI 7

APLIKASI YG DIBUTUHKAN:
1.PANEL
2.LABEL
3.TIMER

LANGKAH PERTAMA
1.Masukan semua aplikasi (PANEL,LABEL,TIMER)
2.Caption Panel kosongkan
3.Label taruh di panel dan beri nama sesuka mu
4.klik 2x pada timer dan masukan SC nya dibawah ini:

 
batas_kiri:=panel1.Left-label1.Width;
  batas_kanan:=panel1.Left+panel1.Width;

  if label1.Left=batas_kiri then
    begin
      label1.Left:=batas_kanan
    end
  else
    begin
      label1.Left:=label1.Left-1;
    end;
timer1.Interval:=10;

5.Tambahkan SC ini di bawah var:

  batas_kiri,batas_kanan:integer;

NOTE : Untuk mengubah kecepatan text, Bisa anda rubah angkanya di :(timer1.Interval:=10;) menjadi 1 atau 100
Makin kecil angkanya makin cepat dan sebaliknya.

Jika Kalian Masih Binggung Silahkan Lihat Tutor Videonya Di bawah Sini

Creat By : Fatkhur rozak

CARA MEMPERBAIKI REGISTRY FILE EXE YANG RUSAK

CARA MEMPERBAIKI REGISTRY  FILE EXE YANG RUSAK 

Kali ini saya akan membagi ilmu yg saya dapatkan setelah melakukanya sendiri.

Awalnya saya mencoba Membersihkan seluruh virus yg ada di komputer/PC ,ketika selesai membersihkan virus komputer/PC, saya matikan dan menghidupkan lagi ternyata aplikasi File Exe,Aplikasi yg lainnya menjadi shourchut atau lainya, dan tidak bisa di buka. Saya cari apa permasalahanya ternyata progam Registry yg terdapat dalam File Exe, dan Aplikasi Yang lain telah terhapus oleh virus yg telah saya bersihkan tadi. Ok untuk mengatasi silahkan copy script trus paste di notapad dan kemudian simpan di Desktop beri nama " sesuka anda yg penting tambahkan .reg" save as type "ALL FILE" 

Exsample:

Perbaiki.reg

setelah sudah menjadi file Reg nya kita tinggal klik 2X, atau bisa klik kanan pada file lalu klik marge file tersebut akan terinstal sendiri/ merepair REGEDIT di komputer kalian dan file Exe yg tidak bisa dibuka tadi akan menjadi normal kembali. kalau file Exe nya masih belum bisa di buka / shourchut nya masih ada tinggal matikan dan hidupkan komputer kalian lagi.ini Scripnya:

Windows Registry Editor Version 5.00

;File association fix for [.EXE] - Windows 7
;http://www.winhelponline.com/blog

[HKEY_CLASSES_ROOT\.EXE]
@="exefile"
"Content Type"="application/x-msdownload"

[HKEY_CLASSES_ROOT\.EXE\PersistentHandler]
@="{098f2470-bae0-11cd-b579-08002b30bfeb}"

[HKEY_CLASSES_ROOT\exefile]
@="Application"
"EditFlags"=hex:38,07,00,00
"FriendlyTypeName"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,\
00,6f,00,6f,00,74,00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,\
32,00,5c,00,73,00,68,00,65,00,6c,00,6c,00,33,00,32,00,2e,00,64,00,6c,00,6c,\
00,2c,00,2d,00,31,00,30,00,31,00,35,00,36,00,00,00

[HKEY_CLASSES_ROOT\exefile\DefaultIcon]
@="%1"

[HKEY_CLASSES_ROOT\exefile\shell\open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT\exefile\shell\open\command]
@="\"%1\" %*"
"IsolatedCommand"="\"%1\" %*"

[HKEY_CLASSES_ROOT\exefile\shell\runas]
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\exefile\shell\runas\command]
@="\"%1\" %*"
"IsolatedCommand"="\"%1\" %*"

[HKEY_CLASSES_ROOT\exefile\shell\runasuser]
@="@shell32.dll,-50944"
"Extended"=""
"SuppressionPolicyEx"="{F211AA05-D4DF-4370-A2A0-9F19C09756A7}"

[HKEY_CLASSES_ROOT\exefile\shell\runasuser\command]
"DelegateExecute"="{ea72d00e-4960-42fa-ba92-7792a7944c1d}"

[HKEY_CLASSES_ROOT\exefile\shellex\ContextMenuHandlers]
@="Compatibility"

[HKEY_CLASSES_ROOT\exefile\shellex\ContextMenuHandlers\Compatibility]
@="{1d27f844-3a1f-4410-85ac-14651078412d}"

[HKEY_CLASSES_ROOT\exefile\shellex\DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers]

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\ShimLayer Property Page]
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}"

[-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.EXE\UserChoice]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.EXE\OpenWithProgids]
"exefile"=hex(0):

Itulah ilmu yg saya dapatkan semoga bermanfaat.

Creat By : Fatkhur rozak