Вопрос

Как сделать,чтобы exe-приложение во время выполнения всегда находилось поверх всех окон?

Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Public Const HWND_TOPMOST = -1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40

.....
SetWindowPos frmCallDlls.hWnd, HWND_TOPMOST, frmCallDlls.Left / 15, _
frmCallDlls.Top / 15, frmCallDlls.Width / 15, _
frmCallDlls.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW

Это из примера calldlls (из MSDN)

Не работает :-(
Но всё-равно спасибо!

а вот так?
Private Declare Function SetWindowPos Lib "user32" (ByVal h\%, ByVal hb\%, ByVal x\%, ByVal Y\%, ByVal cx\%, ByVal cy\%, ByVal F\%) As Integer
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const flags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Sub Command1_Click()
res = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags) 'Форма on-top
End Sub
Private Sub Command2_Click()
res = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags) 'Форма non-on-top
End Sub

А что не работает? А если frmCallDlls. везде убрать.

Al:
Он пишет,что недопустимая внешняя
процедура(frmCallDlls)
Если frmCallDlls поудолять,тоже недопустимую процедуру пишет.
????????????????????????????????????????????

sharig:
Во спасибо!Всё получилось
Бесконечно благодарен.....