Страница 1 из 1

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

СообщениеДобавлено: 11.02.2013 (Пн) 21:06
TrueTrue
Код: Выделить всё
#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)

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

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

СообщениеДобавлено: 12.02.2013 (Вт) 7:25
Димитрий
FUNCTION FindHandleProcess(wCaption AS ASCIIZ) AS LONG

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

СообщениеДобавлено: 15.02.2013 (Пт) 0:56
TrueTrue
Хм, спасибо, почитаю...