=== BEGIN ARIEFWT'S POSTING ===
Kalo untuk melakukan register berkas kontrol (DLL/OCX), gunakan tool
RegSvr32 (biasanya ada di %system32%\regsvr32.exe).
Coba mas gunakan kode ini.
'=== BEGIN CODE - COPY FROM HERE ===
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Ret = ShellExecute(0, vbNullString,
"C:\WINDOWS\system32\regsvr32.exe", "namafile.dll",
"C:\WINDOWS\system32\", vbNormalFocus)
End Sub
'powered by Arief Softwares Lab ([EMAIL PROTECTED])
'=== END CODE - COPY UNTIL HERE ===
Sebenarnya dengan fungsi API, VB dapat melakukan register server tanpa
perlu regsvr32. Tapi akan lebih panjang dari yang di atas, jadi tidak
saya sertakan. Kalau mas berminat, boleh kirim email ke saya... :-)
=== END ARIEFWT'S POSTING ===
Catatan:
* Semoga posting di atas dapat bermanfaat secara positif bagi kita semua
* Kalau ada pertanyaan, silahkan hubungi saya di [EMAIL PROTECTED]
* Mohon maaf sebesar-besarnya apabila ada kata-kata yang kurang
berkenaan di hati Anda
Salam,
(Arief Wibowo, C.Hts, RM)
Computer Programmer and Alternative Therapist
Medan, 24 Maret 2007dddddd|0)
--- In [email protected], develop <[EMAIL PROTECTED]> wrote:
>
> Ada yang bisa tolong bantuin saya gak?
>
>
> saya mau dapatin hasil execute dari function
>
> dim a as boolean
>
> a=shell("namafile.dll")
>
> tapi nilai a yang saya dapat tidak bisa menunjukan apakah berhasil
di register atau tidak.
>
> ada yang bisa tolongin???
>
> thx banget sebelumnya...
>
> Andy.
>
>
>
>
> ---------------------------------
> Sucker-punch spam with award-winning protection.
> Try the free Yahoo! Mail Beta.
>
