[Delphi] Определение полного захода в Steam

[Darth Revan]

Для работы Team Fortress 2 Items Visibility Tool в Cracked Steam нужно определять логин в Steam. Но я не знаю, как его опредилить программно.
В принципе, можно определять по иконке Steam в трее или по SteamAPI, но как?

Это нужно для Steam Patching Utility (т.е. мне и [user]).

[Fire666]

то есть проверить залогинен ли стим или нет ?

ну тогда используй steamislogin

[Darth Revan]

fire64
А можно поподробнее о steamislogin?

[[user]]

Добавлю ещё от себя вопрос.
Как определить программно, что steam запускает приложение с некоторым appid?
Если точнее, то нам надо из внешней программы определить залогинен ли steam и запущен ли TF2.

[Fire666]

я про экспортную функцию int SteamIsLoggedIn(int &loged,TSteamError &error)

[[user]]

fire64
Подскажи, где можно найти руководство по steamapi "для начинающих"...

[Snakeus]

[user]
вот очень хорошая статья, правда на дотнетах http://cs.rin.ru/forum/viewtopic.php?f= ... 26&start=0

[Fire666]

fire64
Подскажи, где можно найти руководство по steamapi "для начинающих"...

такого увы нет :)
я тебе отправил в личку ссылку на код класса CSteamFunc
там чистый winapi так что думаю проблем с портом на Delphi быть не должно

[Darth Revan]

fire64
А мне послать :-D? [user] не в сети.

[eldest]

Код: Выделить всё

int (__cdecl * SteamIsLoggedIn_t)(int *pbIsLoggedIn, TSteamError *pError);

STEAM_API int STEAM_CALL SteamIsLoggedIn (int *pbIsLoggedIn, TSteamError *pError);

int MySteamIsLoggedIn(void) {
    int iReturn = 0;
    int pbIsLoggedIn = 0;
    TSteamError pError = new TSteamError;
    try {
        //HMODULE steamDLL = GetModuleHandle("steam.dll"); //LoadLibrary("steam.dll");
        //SteamIsLoggedIn_t(GetProcAddress(steamDLL, "SteamIsLoggedIn"))(&pbIsLoggedIn, &pError);
        SteamIsLoggedIn(&pbIsLoggedIn, &pError);
        iReturn = pbIsLoggedIn;
    } catch(int a) {
        //MessageBox(NULL, pError.szDesc, "MySteamIsLoggedIn Error", MB_OK | MB_ICONHAND | MB_ICONERROR);
        iReturn = -1;
    }
    return iReturn;
}

int IsLoggedIn = MySteamIsLoggedIn(); // 1 - logged in, 0 - not logged in, -1 - Error

такого увы нет :)

Документации писать не моё призвание, но сегодня постараюсь написать ексэмлы для использования функций steam.dll

кстате, естли кому надо последний OSW вчера качал OpenSteamWorks-Revision-235.zip

[Darth Revan]

eldest
Спасибо. Но как вот это

Код: Выделить всё

int (__cdecl * SteamIsLoggedIn_t)(int *pbIsLoggedIn, TSteamError *pError);
STEAM_API int STEAM_CALL SteamIsLoggedIn (int *pbIsLoggedIn, TSteamError *pError);

перевести в Delphi?

А лучше всё.

[Dr_Quake]

Проще надо быть - костыль в данном случае запущенный exe + пункт 1.

[Darth Revan]

Dr_Quake
Тогда уж-костылём будет Си-библиотека.

[eldest]

Darth Revan
Вот так наверное

Код: Выделить всё

type
    SteamIsLoggedIn_t = function(pbIsLoggedIn: Integer; pError: TSteamError): int; virtual; cdecl;

const
    SteamIsLoggedIn: SteamIsLoggedIn_t = nil;

var
    steamDLL: THandle;
 
steamDLL := LoadLibrary('steam.dll');

try
    @SteamIsLoggedIn := GetProcAddress(steamDLL, 'SteamIsLoggedIn');
    SteamIsLoggedIn(<pbIsLoggedIn>, <pError>);
finally
    FreeLibrary(steamDLL);
end;

Добавлю ещё от себя вопрос.
Как определить программно, что steam запускает приложение с некоторым appid?
Если точнее, то нам надо из внешней программы определить залогинен ли steam и запущен ли TF2.

По идее можно просто мониторить список процессов, если запущен Steam.exe ждать когда запустится TF2
А проверить запущен ли TF2 из под стима сравнив HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam\SteamPID
Или я не прав?

[Dr_Quake]

Вы вообще про что? Какая на фиг библиотека, можно тупо сделать импорт и не извращаться даже с динамической загрузкой.