Подскажите пожалуйста, в чём ошибка?

Раздел посвящен программированию с использованием Power Basic.
TrueTrue
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 167
Зарегистрирован: 20.05.2009 (Ср) 23:18

Подскажите пожалуйста, в чём ошибка?

Сообщение TrueTrue » 11.02.2013 (Пн) 21:06

Код: Выделить всё
#COMPILE EXE
#INCLUDE "Win32API.inc"
FUNCTION PBMAIN
    LOCAL hndl  AS DWORD
    hndl= FindHandleProcess("...")
    MSGBOX STR$(hndl)
END FUNCTION     

FUNCTION FindHandleProcess(wCaption AS STRING) AS LONG
    DIM hwnd AS LONG
    DIM pid AS LONG
    DIM pHandle AS LONG

    hwnd = FindWindow("", wCaption)

    IF (hwnd = 0) THEN
        FindHandleProcess = -1
        EXIT FUNCTION
    END IF

    GetWindowThreadProcessId hwnd, pid

    pHandle = OpenProcess(%PROCESS_ALL_ACCESS, %False, pid)
    FUNCTION = pHandle
END FUNCTION       
Компилятор ругается на строку hwnd = FindWindow("", wCaption), пишет:
Error 480 in ...(39:035): Parameter mismatches definition
Line 39: hwnd = FindWindow("", wCaption)

Подскажите, что за ошибка, не могу понять :(

Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

Re: Подскажите пожалуйста, в чём ошибка?

Сообщение Димитрий » 12.02.2013 (Вт) 7:25

FUNCTION FindHandleProcess(wCaption AS ASCIIZ) AS LONG

TrueTrue
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 167
Зарегистрирован: 20.05.2009 (Ср) 23:18

Re: Подскажите пожалуйста, в чём ошибка?

Сообщение TrueTrue » 15.02.2013 (Пт) 0:56

Хм, спасибо, почитаю...


Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 19

    TopList