Function GetFileVersion(FileName:String):String; var TS: string; h, sz, Len: DWORD; Buf: PChar; Value: Pointer; begin Result:=''; sz := GetFileVersionInfoSize(PChar(FileName), h); if sz > 0 then begin Buf := AllocMem(sz); GetFileVersionInfo(PChar(FileName), h, sz, Buf); VerQueryValue(Buf, '\VarFileInfo\Translation', Value, Len); TS := IntToHex(MakeLong(HiWord(Longint(Value^)), LoWord(Longint(Value^))), 8); VerQueryValue(Buf, PChar('StringFileInfo\' + TS + '\FileVersion'), Pointer(Value), Len); if Len > 1 then Result:=StrPas(PChar(Value)); end; end; Ты бы хоть иногда гуглил
да это я видел ... а нету способа по проще узнать версию СОБСТВЕННОЙ проги в рунтайм? (Чтобы сделать авто обновление шапки)
может быть этот вопрос уже был, но пролистать 700 страниц я не в состоянии. Какой надо писать обработчик события для нажития enter в поле edit?это надо что бы не хвататся постоянно за мышку при последовательном вводе данных и постоянной их обработке.
Code: procedure TPassForm.PassEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then ButtonOK.Click; end;
Народ пдскажите Я пишу программу на Делфи для лома почты, и у мне дали вот такой код: + к этому я сделал: 1) бросил на форму IdAntiFreeze; 2) и все компонетты указанные в коде! 3) IdPOP я настроил провильно! Она запускается но при Starte пишет ошибка "List index out of bouds (19)" - что это такое? Народ плиз..... Если не знаете, то дайте пожалуйста другой код
Может есть какие ни будь другие варианты? Может есть какие ни будь другие варианты решения этой проблемы?
Немножко пооффтоплю: Скоро народ будет искать компоненты типа TMakePizdato, деградируем... Ivan507, возьми в руки отладчик, посмотри на какой строке падает, покури основы Delphi, и тебе воздастся. ПыСы: Визуально код правильный.
Freedom, примерно так. На делфи только перепиши. PHP: if(sPage.Pos("\"captcha_sid\":\"")) { sCaptchaSid = sPage; sCaptchaSid.Delete(1, sCaptchaSid.Pos("\"captcha_sid\":\"") + 15 - 1); sCaptchaSid.SetLength(sCaptchaSid.Pos("\"") - 1); // и дальше много кода..... }
Я ловлю капчу такой регуляркой: Code: captcha_sid":"(\d*?)" Работает почти на любом сервисе вконтакта
ребят спасибо конечно. )))) но не то ))) парсить страницу я умею. ))))) Вот код HTML: http := Tidhttp.Create(nil); http.AllowCookies := true; http.HandleRedirects := false; data := tstringlist.Create; data.Add('email=' + login); // наш логин для авторизации data.Add('pass=' + password); // наш пароль для авторизации data.Add('expire='); data.Add('vk='); error := false; try PageProfile := http.Post('http://login.vk.com/?act=login', data); except error := true; end; if not(error) then begin data.Clear; data.Add('s=' + Copy(PageProfile, Pos('value', PageProfile) + 7, 56)); data.Add('op=slogin'); data.Add('redirect=1'); data.Add('expire=0'); data.Add('to='); http.HandleRedirects := true; try PageProfile := http.Post('http://vkontakte.ru/login.php', data); except end; result := true; end else result := false; data.Free; В PageProfile в том то и дело нет никакого captcha_sid (((((((((((((((( или я чего то не догоняю. Предполагаю что надо рыть в сторону http.Responcetext
помогите плиз я делфи недавно начал изучать и вопрос - как задать инрервал таймеру с помошью кнопки и поля Edit ??? в бейсике например все просто Private sub Command1_click() Timer.Interval = Text1 End Sub а в делфи непоиму как (((( подскажыте чайнику плиззз
Помогите пожалуйста Я хочу сделать словарь типа: слово транскрипция перевод...есть вариант сделать это ввиде стандартного компонента delphi и в его текстовое значение вбить все слова....а есть другие варианты?...и как можно в этом случае организовать поиск определенного слова?
В компонент StringGrid выводи.. Или для удобства можно скачать еще NiceGrid(они примерно одинаковы, только у второго есть еще немного полезных применений)
