Loading ...
Sorry, an error occurred while loading the content.

Re: [indoprog-vb] Open Application

Expand Messages
  • Fuad Harahap
    Caoba gunakan perintah Windows API yaitu winexec , sintak lengkapnya bisa di lihat pada API Viewer-nya Visual Basic. Salam, foo.
    Message 1 of 2 , Oct 1, 2001
    • 0 Attachment
      Caoba gunakan perintah Windows API yaitu "winexec",
      sintak lengkapnya bisa di lihat pada API Viewer-nya
      Visual Basic.

      Salam,
      foo.
      http://www.geocities.com/visiweb

      --- Shanon Hill <sh2_email@...> wrote:
      > Di website indoprog-vb saya mendapatkan program ini.
      > Yang saya ingin tanyakan bagaimana
      > menerapkan/mengubah program ini kalau programnya
      > bukan kepunyaan windows. Tapi buatan kita sendiri.
      > Misalnya : "KERJA.EXE" ? Terima kasih.
      >
      > Shanon
      >
      >
      > Form1 :
      > Private Sub cmdBuka_Click()
      > Dim hCalcWnd As Long
      > Dim X As Long
      > hCalcWnd = FindWindow("SciCalc", "Calculator")
      > If hCalcWnd = 0 Then
      > x = Shell("CALC.EXE", vbNormalFocus)
      > Else
      > BringWindowToTop (hCalcWnd)
      > End If
      > End Sub
      >
      > Module :
      > Public Declare Function FindWindow Lib "user32"
      > Alias "FindWindowA" (ByVal lpClassName As String,
      > ByVal lpWindowName As String) As Long
      > Public Declare Function BringWindowToTop Lib
      > "user32" (ByVal hwnd As Long) As Long
      >
      >
      >
      >
      >
      > [Non-text portions of this message have been
      > removed]
      >
      >


      __________________________________________________
      Do You Yahoo!?
      Listen to your Yahoo! Mail messages from any phone.
      http://phone.yahoo.com
    Your message has been successfully submitted and would be delivered to recipients shortly.