Задаем Вопросы,получаем ответы. Отвечают на ваши вопросы все хек кодеры ачата Задаем вопрос и ждем ответа. ------------------------------------------------------- by jes Навигация по разделу: [*]Где скачать Delphi ?--> --> --> [*]Как сделать действия закрятия формы(программы), сворачивания и развертывания её? [*]Я хочю чтоб при на жатии кнопки на Button1 комп выключался,а при нажатии на кнопку Button2 совершалась перезагрузка... [*]Как добавлять запись в файл? [*]А потом какой функцией сделать поиск по файлу? [*]Как добавить Иконку?[*]Как разобрать uins.ini формата 3252436;passwr на две переменные?--> --> --> [*]Как проверить что: 1. интернет включен 2. Что данные не были заблочены FireWall'ом и успешно отправлены.--> -->[*]Как реализовать отправку писем через Socks5, допустим, используя компоненты Indy - IdSMTP и TidMessage? [*] в файле допустим 15 номеров формата uins;pass ,как сделать чтобы все эти 15 номеров подконнектились? [*] Ищу учебник или статьи по сетевым компонентам (Indy), или статьи на эту тему [*] Как сделать простельние графические графические часики? [*] подскажите какие-нибудь проги для начинающих для самостоятельного написания? [*] какой должен быть тип возвращаемого функцией значения, если функция сохраняет файл?--> --> [*] можно осуществлять печать с Memo? или только с RichEdit? [*] Хотелось бы услышать несколько советов по уменьшению размера программы [*] Как написать чекер акков на валид ? ( конект идет через Https ) --> --> [*] Как использовать в моей программе курсоры, независящие от системы?--> --> [*] Как использовать ресурсы? [*] как работать с архивами из приложения? [*] как определить при помощи делфи имя компьютера?--> --> [*]Как получить список процессов НО ТОЛЬКО С ИХ полным путем !? [*]как создавать потоки с помощью TThread?--> --> --> [*]Как отправить почту ? [*]как использовать камандуную строку windows через дельфи?--> --> [*]как в делфи выполнять гет, пост запросы к сайтам? --> --> --> [*]Как установить компонет из исходника? [*]как при помощи TIdAttachment прикрепить файл к письму ? [*]как из Delphi запустить .bat файл? [*]Как программно загрузить файл из интернета (скрытно) ? [*]Возможно ли программно установить Пароль на папку? [*]Подскажите как по имени процесса получить его Pid? --> --> [*]как можно организовать перехват событий мышки в любом приложении?--> --> [*]Как зделать чтобы окно не сворачивалось и не разворачивалось ?--> --> [*]Как скрыть программу с панели задач?--> --> --> --> [*]как написать простенький редактор на Delphi ? [*]Есть ли исходники zlib, которые пакуют, распаковывают файлы..?--> --> [*]Подскажите пример парсинга страницы? <b> текст </b> ? ...Для нескольких тэгов [*]как сменить иконку стороннего приложения? [*]КАк сделать переход на другую форму при нажатии кнопки? [*]Как поменять размер окна, зная её хэндл? [*]как сделать чтобы когда открывалась форма номер 2, 1 форма закрывалась? [*]а как задать размер окна, например 800х600? [*]как выводить красный текст в Мемо через Memo1.Lines.Add('text');? --> --> [*]Как получить заголовок и указатель активного окна? [*] как организовать поиск определенного файла по имени или части имени?--> --> [*]TServerSocket и TClientSocket, как передать файл от сервера к клиенту или наоборот? [*]Как читать файл построчно? [*]Как программно перезагрузить Компьютер? [*]Как прохешировать строку в MD5 [*]Подскажите редактор ресурсов для .res диалогов ?--> --> [*]механизм Drag-and-Dock так, чтобы одна форма прилипала к другой при перетаскивании той формы, кторая должна прилипнуть, на ту форму, к котрой она должна прилипнуть примерно на 5-6 пикселей?? Продолжение: Как поставить на хук на TerminateProcess? Подкиньте пример работы с aplib только без FileStream? как сделать чтобы при нажатии на кнопку открывался опен диалог? Как сделать чтобы при выборе в OpenDialog имя файла(+путь) выводилось в TEdit? Как сделать OpenDialog & SaveDialog на WinAPI ? Как масштабировать форму? Как сделать чтобы окно нельзя было двигать и оно всегда было активным? где взять JVCL? --> --> [*]Как пропарсить файл вида [email protected] \n [email protected] ? [*]Эмуляция консоли: [*]Как осуществить отправку файла выбранного в OpenDialog1 на e-mail скрыто от пользователя ? --> --> [*]Как сделать на WinApi в ListView,чтобы новые записи при добавлении добавлялись сверху вниз ? Или Снизу вверх? [*]Куда поместить ProcessMessages for WinAPI? [*]FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски? --> --> [*]как созданному файлу, иконку изменить программно? [*]как получить список дочерних процессов чужого приложения? (для win2000-XP) [*]поиск определителя матрицы, любого порядка, рекурсия [*]Как можно зашифровать файл в Base64 и разшифровать из Base64?--> --> [*]как отправить письмо через WinSock c аттачментом? [*]как иконку добавить к программе? [*]Работа с ф-цией WaveOutOpen? [*]как написать программу чтоб она "заходила" на сайт допустим mysite.ru ,чтоб счетчик защитывал посещение и при этом юзер ничего не видел? [*]Поиск слова в строке/тексте [*]как программно залогинится на сйте(vBulletin)? [*]Выдаёт ошибку Project2.dpr(2): File not found: 'Crt.dcu' [*]посылка формы методом Post по Https [*]Как скопировать себя при запуске в определенное место на диске ? [*]Преобразование Ascii в шестнадцатиричное представление [*]...и обратно... [*]Как сделать форму ввиде сердца, фигуры , рисунка? [*]Как передать текст с первой формы на вторую ? [*]Как прочитать параметры запуска? ( prog.exe -param1 -param2) [*]Как использовать таймер в консоли? [*]как забрать с запученого процесса cmd его строки? [*]Работа с MySQL +Пример [*]Как отключить мышь? [*]Возможно ли закриптовать программный код в исходниках?--> --> [*]Как сделать чтобы окно загружалась по центру а не соева сверху? [*]Автозагрузка программы [*]как правильно запускать файл через коммандную строку на Delphi? [*]Как с помощью IdHTTP получить содержимое веб страницы в переменную? [*]Как изменить текст в поле другого окна?--> --> [*]Как написать сетевой сниффер? [*]Как вывести числа из массива в TMemo? [*]Как сделать чтобы нажатии на кнопку/ссылку открывалась нужная web страница? [*]Как изменить цвет фона в TMemo? [*]как сделать так что бы при нажатии button1 программа закрывалась, разворачивалась или сворачивалась? [*]как сделать так чтобы при нажатии button1 срабатывал диалог OpenDialog?--> --> [*]как вывести числовую матрицу на экран? [*]Как сохранить содержимое TStringGird в файл (и загрузить из файла)? [*]Описание компонентов + новые компоненты: [*]Описание компонентов Indy: [*]Как создать процесс из части файла? [*]есть ли какой нибудь мини делфи или компилятор для него? (где скачать DCC32?) [*]Как сделать скриншот только активного окна? [*]Как программно посчитать количество слов в тексте?--> --> --> [*]Как записать матрицу в массив? [*]Принцип работы бэкдора? (исходник)--> --> [*]как из компонента ListView скопировать строчку в буфер? [*]как запустить командную строку с перенаправлением ввода вывода на сокеты? [*]Как random в delphi генерирует случайные значения? есть какой либо алгоритм? [*]как запретить закрытие form1 когда открыта form2? [*]как сделать отсылку файлов через электронную почту? [*]ICQ и Delphi [*]Как сделать окно (сплэш) с приветствием? [*]как узнать имена всех пользователей Windows? [*]а как можно сменить пароль на email ? [*]как разбить строку вида 192.168.0.1 на 192 168 0 1? [*]как отобразить на форме картинку с какого нибудь сайта ? --> --> [*]Как извлечь файл на диск из resource data? [*]Можн ли в delphi написать нечто подобное : a:array[21] of TLabel? [*]пример роботы из Делфи с MySQL? [*] как сжать папку с файлами на Delphi (rar)? -> -> [*]примитивный склейщик файлов [*]Delphi & SQLite
Ну я пожалуй начну Интересует..... Как сделать действия закрятия формы(программы), сворачивания и развертывания её !!! Пытался сделать Code: Form1.Close := true; не получилось т.к. бред И еще...сделал форму свой с бордером bsNone т.е. убрал стандартные виндоус бока..Так вот..как теперь сделать так, чтобы мою форму можно было перетаскивать??А то н сдвинуть теперь с места никуда
Form1.Close; - закрытие Application.Minimize; - сворачивание ShowWindow(Form1.Handle,SW_MAXIMIZE); - развертывание Чтобы можно было перетаскивать форму за любую точку, нужно добавить вот эту процедуру: Code: public procedure WMNChitTest(var M:TWMNCHitTest);message wm_NchitTest; end; Code: procedure TForm1.WMNChitTest(var M: TWMNCHitTest); begin inherited ; if M.Result=htClient then M.Result:=HTCAPTION; end;
Следующий вопрос.. Можно ли как-нибудь на mainMenu( выпадющий список) наложить панельку ... Или может как-то MainMenu спустить пониже, а сверху панельку.. Вот как такое сделать
Решил не создавать новую тему, а просто попросить выложить линки на материал по поводу ручногоо изменения Pe загловков, для того чтобы не палился пинч.
Люди кото может памоч? у меня чёта непалучается органезовать выключение и перезагрузку компа. Я хочю чтоб при на жатии кнопки на Button1 комп выключался,а при нажатии на кнопку Button2 совершалась перезагрузка...Кто может скинте код,или исходник,ПЛИЗ..
Эм...ну думаю сложного ничего нету..... Просто открыть смд и прописать команды......... Хм..а зачем это...не легче просто выключить или ребутнуть?
Выключение: Code: var downQuick: Boolean = False; powerOff: Boolean = False; logoff: Boolean = False; reboot: Boolean = False; ... procedure DoShutdown; var rl, flgs: Cardinal; hToken: Cardinal; tkp: TOKEN_PRIVILEGES; begin flgs := 0; if downQuick then flgs := flgs or EWX_FORCE; if not reboot then flgs := flgs or EWX_SHUTDOWN; if reboot then flgs := flgs or EWX_REBOOT; if poweroff and (not reboot) then flgs := flgs or EWX_POWEROFF; if logoff then flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or EWX_LOGOFF; if Win32Platform = VER_PLATFORM_WIN32_NT then begin if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then exit else begin if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then begin tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; tkp.PrivilegeCount := 1; AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl); if GetLastError <> ERROR_SUCCESS then Writeln('Error adjusting process privileges.'); end else exit; end; end; ExitWindowsEx(flgs, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin DoShutdown; end; Вот еще варианты: Code: ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0); останавливает работу системы в безопасный момент времени. Все буферы очищаются с сохранением данных на диске, все процессы останавливаются Code: ExitWindowsEx(EWX_REBOOT or ewx_force,0); перезагрузка системы Code: ExitWindowsEx(EWX_FORCE or ewx_force,0); завершает работу всех запущенных в системе приложений, не посылая им сообщения WM_QUERYENDSESSION и WM_ENDSESSIO. Это может вызвать потерю не сохраненных данных Code: ExitWindowsEx(EWX_POWEROFF or ewx_force,0); завершает работу компьютера с выключением питания, если система поддерживает автоуправление питанием Code: ExitWindowsEx(EWX_FORCEIFHUNG or ewx_force,0); завершает работу всех запущенных в системе приложений если система висит Ещё вариант перезагрузки: Code: mov al,0F0h out 64h,al
Пара нубских вопросов: Как добавлять запись в файл? Дропустим нужно все время дописывать в конец файл номера.. ПО 1 номеру на строку.. А потом какой функцией сделать поиск поф файлу?если ли такой номер
Добавляет запись в файл Code: var SL: TStringList; begin Sl:=TStringList.Create; if FileExists('myfile.txt') then SL.LoadFromFile('myfile.txt'); SL.Add('Text'); SL.SaveToFile('myfile.txt'); SL.Free; end; Чтобы сделать поиск, нужно просто загружать весь файл в переменую Code: SL.LoadFromFile('myfile.txt'); и потом проверять наличие нужного тебе номера в каждой строчке Code: if SL.Strings[nomerstroki]='Text' then...;
Code: if SL.Strings[nomerstroki]='Text' then...; Не понятно......как я узнаю номер строки?? Ищем текст Text в файле...что за номер строки?
Спс... Теперь проблема с иконкой... пытаюсь поставить иконку на прогу.....вроде ставлю, она высвечивается в заголовке программы., а сам значок проги не делается
Super Puper вопрос: Вообщем надо сделать так: Есть файл uins.ini такого формата Code: 3252436;passwr 236347;264sdg34 Nак вот.....надо как-то сделать так, чтобы номер до точки с запятой был переменной UIN, а после переменная PASSWORD
Code: UIN:= copy(SL.Strings[i],0,pos(';',SL.Strings[i])-1); Pas:= copy(SL.Strings[i],pos(';',SL.Strings[i])+1,32);
Сделал проще: Code: var ss:Tstrings; begin ss:=TStringList.Create; ss.LoadFromFile('uins.txt'); ss.NameValueSeparator:=';'; ICQClient1.UIN := StrToInt(ss.Names[1]); ICQClient1.Password := ss.ValueFromIndex[1];
Как проверить что: 1. интернет включен 2. Что данные не были заблочены FireWall'ом и успешно отправлены.
1. Code: #include <wininet.h> ... DWORD dwFlags; InternetGetConnectedState( &dwFlags, 0 ); if (dwFlags && INTERNET_CONNECTION_MODEM) printf( "модем подключен\n" ); if (dwFlags && INTERNET_CONNECTION_LAN) printf( "lan подключен\n" ); 2. Хех, если коннект к удаленному серверу прошел успешно, значит фаервол не заблочил данные) Code: if (connect( s, (struct sockaddr_in*)s_addr, sizeof( s_addr ) ) == SOCKET_ERROR) printf( "заблочил)\n" ); else printf( "не заблочил)\n" ); чмок)
