ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Twiddle, берешь строку из TEdit'а, узнаешь длину(N). Потом открываешь файл и читаешь в каждой строке N-символов. Если твое, то считываешь остальное и выполняешь
вот такой вот геммор)))

есть такое, уже давно... го на sourceforge.net, есть опенсурс проект... юзай поиск.

Сам только в начале пути познания делфи, поэтому идея есть а вот реализацию пока представляю плохо поэтому надеюсь поможете. Идея:
на рабочем столе хочется иметь как можно больше ярлыков нужных и частозапускаемых программ так как заходить в папку с прогарммой каждый раз что бы её запустить - меня лично напрягает, то же самое и с меню ПУСК, но при этом не хочется загромождать стол ярлыками вообще. Вот и родилась такая идея: На рабочем столе находится наша программа-форма без заголовка с одной лишь TEdit. В папке с нашей программой есть файл config.ini который содержит примерно следующее:

icq c:\icq\icq.exe
mozilla c:\Program Files\Mozilla Firefox\firefox.exe
word c:\winword\winword.exe
итд.

т.е. техника такая: мы в водим в нашу программу (TEdit) какое либо слово, программа ищет его в нашем config.ini и если находит запускает приложение идущее после введенного слова. Если нет такого слова-выводим сообщение об ошибке и ни чего не делаем. Так же хотелось бы что бы при вводе "!exit" наша программа закрывалась.Вот и все. Буду очень благодарен за подсказку реализации. С меня почет и уважение...

"Хочу сделать что-то типа накрутчика для сайтов... получается загружаю сайт.ru в webbrowser .
Выискиваю все ссылки, которые есть на нём и записываю их в memo или ListBox.
Дальше не знаю что мне делать, что б при загрузке любой ссылки из списка считалось, что я перешёл по ней с сайт.ru а не просто ввёл её в строку. Вот никак не получается это сделать.
Подсказывал мне кто-то что б использовал не помогает. Всё равно показывает, что вводил новую строку, а не перешёл с сайта
Напишите пожалуйста что нужно сделать "

// Enable/disable "Mute" for several mixer line sources. uses MMSystem; type TMixerLineSourceType = (lsDigital, lsLine, lsMicrophone, lsCompactDisk, lsTelephone, lsWaveOut, lsAuxiliary, lsAnalog, lsLast); function SetMixerLineSourceMute(AMixerLineSourceType: TMixerLineSourceType; bMute: Boolean): Boolean; var hMix: HMIXER; mxlc: MIXERLINECONTROLS; mxcd: TMIXERCONTROLDETAILS; vol: TMIXERCONTROLDETAILS_UNSIGNED; mxc: MIXERCONTROL; mxl: TMixerLine; intRet: Integer; nMixerDevs: Integer; mcdMute: MIXERCONTROLDETAILS_BOOLEAN; begin Result := False; // Check if Mixer is available // Uberprufen, ob ein Mixer vorhanden ist nMixerDevs := mixerGetNumDevs(); if (nMixerDevs < 1) then begin Exit; end; // open the mixer // Mixer offnen intRet := mixerOpen(@hMix, 0, 0, 0, 0); if intRet = MMSYSERR_NOERROR then begin ZeroMemory(@mxl, SizeOf(mxl)); case AMixerLineSourceType of lsDigital: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_DIGITAL; lsLine: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_LINE; lsMicrophone: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE; lsCompactDisk: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC; lsTelephone: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE; lsWaveOut: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT; lsAuxiliary: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY; lsAnalog: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_ANALOG; lsLast: mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_LAST; end; // mixerline info mxl.cbStruct := SizeOf(mxl); intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE); if intRet = MMSYSERR_NOERROR then begin ZeroMemory(@mxlc, SizeOf(mxlc)); mxlc.cbStruct := SizeOf(mxlc); mxlc.dwLineID := mxl.dwLineID; mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE; mxlc.cControls := 1; mxlc.cbmxctrl := SizeOf(mxc); mxlc.pamxctrl := @mxc; // Get the mute control // Mute control ermitteln intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE); if intRet = MMSYSERR_NOERROR then begin ZeroMemory(@mxcd, SizeOf(mxcd)); mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS); mxcd.dwControlID := mxc.dwControlID; mxcd.cChannels := 1; mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN); mxcd.paDetails := @mcdMute; mcdMute.fValue := Ord(bMute); // set, unset mute // Stumsschalten ein/aus intRet := mixerSetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE); { mixerGetControlDetails(hMix, @mxcd, IXER_GETCONTROLDETAILSF_VALUE); Result := Boolean(mcdMute.fValue); } Result := intRet = MMSYSERR_NOERROR; if intRet <> MMSYSERR_NOERROR then ShowMessage('SetControlDetails Error'); end else ShowMessage('GetLineInfo Error'); end; intRet := mixerClose(hMix); end; end; // Example Call; Beispielaufruf: procedure TForm1.Button1Click(Sender: TObject); begin // Ton ausschalten SetMixerLineSourceMute(lsLine, True); end;