/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 437
от 08.04.2006, 07:35

Вопрос № 39.180

Подскажите, пожалуйста, как можно зарегестрировать свой тип файла. И как можно добавить пункт "МойПункт" в контекстное меню этого типа файла. Спасибо.

Отправлен: 02.04.2006, 09:06 Вопрос задал: NVBud (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Б. Здравствуйте, NVBud! Немного порывшись в реестре, Вы сразу нашли бы нужные Вам ключи! Когда нужно что-то в реестре: запускайте программу Sysinternals Regmon и смотрите, что меняет другая программа, а потом, по её примеру пишите для своей. Код в приложении: Приложение: ----- Регистрация своего типа файлов ----------- uses Registry; procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey('.txt2' , True); Reg.WriteString('', 'TXT2file'); Reg.CloseKey; Reg.OpenKey('TXT2fileDefaultIcon', True); Reg.WriteString('', Application.ExeName + ',0'); Reg.CloseKey; Reg.OpenKey('TXT2fileshellopencommand', True); Reg.WriteString('', Application.ExeName + ' "%1"'); Reg.CloseKey; Reg.Free; end; ------------------------------------------------ ---------- Пункт в контекстном меню ------------ uses Registry; procedure AddToContext(FileExt, text : string); // FileExt - расширение типа файлов без точки вначале! var R : TRegistry; s : string; begin r := TRegistry.Create; r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey('SoftwareClasses',false); if not (r.KeyExists('.'+FileExt)) then begin ShowMessage('Такой тип файлов не найден.'); Exit; end else r.OpenKey('.'+FileExt,true); s := r.ReadString(''); ShowMessage(s); r.CloseKey; r.OpenKey('SoftwareClasses',false); r.OpenKey(s,true); r.OpenKey('shell',true); r.OpenKey('Crypt', true); r.WriteString('',text) r.OpenKey('command',true); r.WriteString('',Application.ExeName + '"%1"'); r.CloseKey; r.Free; end;

Ответ отправил: Николай Б. (статус: 3-ий класс) Ответ отправлен: 02.04.2006, 09:15 Оценка за ответ: 5 Комментарий оценки: Я с реестром не дружу :(

Вопрос № 39.181

Здравствуте. Скажите, пожалуйста, какой метод шифрования самый нажёджный. Желательно, с его кодом. Заранее спасибо.

Отправлен: 02.04.2006, 09:07 Вопрос задал: NVBud (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Николай Б. Здравствуйте, NVBud! Пример моего алгоритма в приложении. Все методы, приведённые в Интернет, по-моему, даже нельзя рассматривать, если надо защитить очень ценную информацию. Самым надёжным можно считать тот метод, который В&# 1099; сами придумаете и напишите, а потом никому не покажите. Хочу обратить Ваше внимание на следующеее: I. нет такогометода (даже своего), который никто не взломает (что бы Вы не думали, что можно так зашифровать; может понадобится много времени, но если необходимо, то ВЗЛОМО& #1070;Т!) II. В России можно пользоваться 40-битным ключом для шифрования. Если захотите использовать больший ключ, придётся согласовывать со всякими органами (точно не помню как ;ими). PS В Интернете много исходников, которые зашифруют одну букву,а потом даже её не могут расшифровать! Будьте внимательны при их использовании. Удачи! Приложение: Но, могу Вас огорчить, даже свои методы не всегда надёжны. (Я писал свой, причем, для себя, а не кому-то, около трёх месяцев, но потом мои знакомые-взломщики смогли &# 1088;асшифровать всё. Хотя и не очень быстро - за полгода). Я писал по следующиму алгоритму: 1. Вводится ключ, шифруется определенным образом. 2. Данные шифруются зашифрованным ключом (п.1) 3. Зашифрованные данные сжимаются (своим методом) 4. сжатые данные шифруются ещё одним ключом (полученным путём сложных рассчётов из сжатого, зашифрованного файла) 5. Ключ записывается в файл (п.4). В результате получается файл в цифрами и буквами A,B,C,D,E,F (шируется в 16-чном виде) 6. Из файла считываются куски опред. длины и переводятся в случайную систему счисления (меньше 16). 7. Ключ хитрым образом пишется в файл. Этот алгоритм далеко не идеальный, но я его "выполнил на полгода" (хотя тогда знания у меня были очень не высокие и я писал на Turbo Pascal 6).

Ответ отправил: Николай Б. (статус: 3-ий класс) Ответ отправлен: 02.04.2006, 09:26 Оценка за ответ: 5

Вопрос № 39.191

Как запустить внешнюю программу?

Отправлен: 02.04.2006, 11:07 Вопрос задал: Andy Greyleaf (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: romodos Здравствуйте, Andy Greyleaf! Есть два способа: 1. Функция WinExec(lpCmdLine: PAnsiChar, uCmdShow:Cardinal):Cardinal из модуля Windows 2. Функция ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): Cardinal; из модуля ShellApi Первая выполняет команду, как командная строка Windows, а вторая запускает файл с введенными параметрами. Думаю, из названий параметров понятно, что они означают Пример: WinExec('notepad.exe', SW_SHOWNORMAL); ShellExecute(Application.Handle, nil, 'C:WindowsNotepad.exe', nil,nil,0); --------- The Source is Our Soul. FAQ me off!

Ответ отправил: romodos (статус: Практикант) Ответ отправлен: 02.04.2006, 12:03 Оценка за ответ: 5

Отвечает: Jadd Здравствуйте, Andy Greyleaf! Помимо того, что написали ранее, есть функция CreateProcess. По советам из самой майкрософт, лучше ее использовать, но не обязательно ;) Пример в приложении. Успехов. Приложение: STARTUPINFO si; PROCESS_INFORMATION pi; ZeroMemory( &si, sizeof(si) ); si.cb = sizeof(si); ZeroMemory( &pi, sizeof(pi) ); // Start the child process. if( !CreateProcess( NULL, // No module name (use command line). "MyChildProcess", // Command line. NULL, // Process handle not inheritable. NULL, // Thread handle not inheritable. FALSE, // Set handle inheritance to FALSE. 0, // No creation flags. NULL, // Use parent's environment block. NULL, // Use parent's starting directory. &si, // Pointer to STARTUPINFO structure. &pi ) // Pointer to PROCESS_INFORMATION structure. ) { ErrorExit( "CreateProcess failed." ); } // Wait until child process exits. WaitForSingleObject( pi.hProcess, INFINITE ); // Close process and thread handles. CloseHandle( pi.hProcess ); CloseHandle( pi.hThread ); --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Профессионал) Адрес: Санкт-Петербург WWW: http://www.sport-diary.ru ICQ: 28260749 ---- Ответ отправлен: 02.04.2006, 12:07 Оценка за ответ: 5

Отвечает: Cheater76 Здравствуйте, Andy Greyleaf! Для своих нужд я пользовался RxLib2.75 модуль RXShell FileExecuteWait(const FileName, Params, StartDir: string; InitialState: TExecState): Integer; В функции (FileExecuteWait) используется ShellExecute из ShellAPI

Ответ отправил: Cheater76 (статус: 3-ий класс) Ответ отправлен: 02.04.2006, 15:33 Оценка за ответ: 5

Вопрос № 39.200

Здраствуйте. Как узнать существует ли директория? Спасибо:)

Отправлен: 02.04.2006, 15:01 Вопрос задал: Yarking (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Minor Здравствуйте, Yarking! я советую вам воспользоватся функцией DirectoryExists(DirectoryName:String):boolean --------- Не руби сук, на котором сидишь! Вообще слезь с дерева, человек!

Ответ отправил: Minor (статус: 2-ой класс) Ответ отправлен: 02.04.2006, 15:08 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Hello, Yarking! if DirectoryExists('C:MyDir') then . . . --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 02.04.2006, 15:08 Оценка за ответ: 5

Отвечает: Cheater76 Здравствуйте, Yarking! Delphi7 модуль SysUtils DirectoryExists(const Directory: string): Boolean; FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

Ответ отправил: Cheater76 (статус: 3-ий класс) Ответ отправлен: 02.04.2006, 15:22

Вопрос № 39.207

Здравствуйте эксперты, у меня такой нелегкий вопросик, не думаю что мне ответят, но все же может найдется кто-нибудь. Итак вопрос: мне нужно брать текст с текущей позиции курсора влево пока не будет пробела (или начала строки если слово первое) с мемо в чужом окне. Мемо я нашел.. Заранее спасибо.

Отправлен: 02.04.2006, 17:02 Вопрос задал: Yxo (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: romodos Здравствуйте, Yxo! М..да. Ну и вопросик. Даже боюсь спрашивать, для чего так извращаться. Я в растерянности, что вам делать. Как мне кажется, тут два варианта. 1) Узнать позицию курсора GetCursorPos, "вырезать" кусок чужого окна рядом с этой точкой, потом из картинки распознать текст. По-моему, очень геморройно:) 2) Взять текст из Memo функцией GetWindowText, узнать позицию курсора, узнать позицию окна, узнать ширину строки (не знаю, возможно ли это), высчитать номер строки и найти ее в тесте. В общем, оба метода далеко не легкие. Я бы сам даже не взялся программать все это. Возможно, существуют более легкие пути, но мне они что-то в голову не приходят. P.S. Не претендую ни на что:) --------- The Source is Our Soul. FAQ me off!

Ответ отправил: romodos (статус: Практикант) Ответ отправлен: 02.04.2006, 18:31 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ, подумаю над вторым способом.

Отвечает: Артём Шегеда Здравствуйте, Yxo! Я просто в ЖУТКОЙ растерянности... Но попытаюсь родить что-нибудь... В процедуре используется Memo1.Handle, ты должен поставить хэндл найденного тобой memo. В конце процедуры s есть строка, на которой стоит курсор, а i - индекс символа, на котором стоит курсор. Дальше, надеюсь, сам?.. Приложение: procedure TForm1.Button1Click(Sender: TObject); type PInt = ^integer; var CurPos : integer; LineCharIndex : integer; Buffer : array [0..32767] of char; i : integer; s : string; begin SendMessage(Memo1.Handle,EM_GETSEL,integer(@CurPos),0); LineCharIndex := SendMessage(Memo1.Handle,EM_LINEINDEX,-1,0); FillChar(Buffer,sizeof(Buffer),0); PInt(@Buffer)^ := sizeof(Buffer); SendMessage(Memo1.Handle,EM_GETLINE,SendMessage(Memo1.Handle,EM_LINEFROMCHAR,-1,0),integer(@Buffer)); s := Buffer; i := CurPos-LineCharIndex+1; end;

Ответ отправил: Артём Шегеда (статус: 4-ый класс) Ответ отправлен: 02.04.2006, 22:51 Оценка за ответ: 5 Комментарий оценки: СПАСИБО!!! Именно то, что надо. 5 баллов бесспорно, еще раз спасибо.

Вопрос № 39.208

Здраствуйте уважаемые експерты! У меня следующий вопрос по технологии DCOM : Как определить собственый метод в RemoteDataModule (IAppServer) так чтоб он был доступен из клиента ? Я определял метод в Type Library но толку нет. Зарание спасибо.

Отправлен: 02.04.2006, 17:12 Вопрос задал: Pm_pilot (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, Pm_pilot! А что Вы имеете в виду под "толку нет"? Опишите ситуацию поподробнее, тогда смогу помочь

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 2-ой класс) Ответ отправлен: 03.04.2006, 10:07

Вопрос № 39.210

В папке где находится программа (Delphi 7) иногда появляются файлы типа _qsql0001.dbf. Что это и как с этим бороться. Спасибо. (Программы пишу я сам.Новичок)

Отправлен: 02.04.2006, 17:33 Вопрос задал: Rdomr (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Артём Шегеда Здравствуйте, Rdomr! Подозреваю, что ты пишешь не просто программы, а программы по работе с базами данных. Более того, используешь компонент TQuery. Если это так, то всё нормально - это рабочие таблицы запросов. Хуже, когда они остаются после завершения работы программы - в этом случае все "левые" таблицы нужно удалять при запуске.

Ответ отправил: Артём Шегеда (статус: 4-ый класс) Ответ отправлен: 02.04.2006, 23:03

Вопрос № 39.228

Добрый вечер . Уменя вопрос ! Где можно найти название всех панелей или окон Windows например "Shell_TrayWnd" - это окно панели задачь ! Вот есть какойнибуть справочник с их именами ? Я пробовай написать преложение которое вытаскивает имя на он выдавал что-то вроде 16889 или что-то ешё !!! А и вот ешё ктонибуть может сказать как зделать прокрутку вверх и вниз у Memo а то я досих пор этого незнаю ! А в учебниках ешё невидел ! С уважением, Zmeu

Отправлен: 02.04.2006, 22:07 Вопрос задал: Tamashev Denis M (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Полховский Александр Владимирович Здравствуйте, Tamashev Denis M! 1. Попробуйте программу Red Button (кажется, даже от MS). Там есть утилита для вытаскивания класса и др. информации из окна, на которое навёл курсор. 2. Memo1.ScrollBy(DeltaX, DeltaY: Integer) --------- Спасём нашу хрупкую планету !

Ответ отправил: Полховский Александр Владимирович (статус: Практикант) Ответ отправлен: 02.04.2006, 23:30 Оценка за ответ: 5

Вопрос № 39.231

Здраствуйте! В одной программе мне необходимо отобразить матрицу графически, я для этого динамически создаю Panel, на нее ячейки(Panel и на нее Image). При отрисовки матрицы основную матрицу скрываю, при окончании создания ячеек отображаю. При таком подходе матрица отрисовыается очень долго, подскажите как и с помощью чего быстро отрисовать графическую матрицу? Заранее спасибо.

Отправлен: 02.04.2006, 22:23 Вопрос задал: 007Makc (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Артём Шегеда Здравствуйте, 007Makc! Если мне нужно что-то отрисовать, я использую TImage: задаю его размер, задаю размер его Picture.Bitmap, а потом рисую по канве. Ничего сверхъестественного... Приложение: var i, j : integer; begin Image1.Picture := TPicture.Create; Image1.Picture.Bitmap.Width := Image1.Width; Image1.Picture.Bitmap.Height := Image1.Height; with Image1.Picture.Bitmap.Canvas do begin Brush.Color := clWhite; MoveTo(10,5); LineTo(5,5); LineTo(5,Image1.Height-5); LineTo(10,Image1.Height-5); MoveTo(Image1.Width-10,5); LineTo(Image1.Width-5,5); LineTo(Image1.Width-5,Image1.Height-5); LineTo(Image1.Width-10,Image1.Height-5); for i:=0 to 10 do for j:=0 to 10 do TextOut(i*20+10,j*20+10,IntToStr(Random(100))); end; end;

Ответ отправил: Артём Шегеда (статус: 4-ый класс) Ответ отправлен: 02.04.2006, 23:19

Отвечает: Злоумышленник Здравствуйте, 007Makc! Не видел твой код, но скорее всего отрисовка медленно идёт из-за того, что через Canvas это делаешь. Гораздо быстрее получится, если будешь это делать путём записи пикселей напрямую в память. Но так посложнее будет. Используется с-во Bitmap'а scanline, передающее указатель на Y-составляющюю битмэпа в памяти. В приложении пример заполнения формы точками случайного цвета из Bitmap'а, причём в цикле весь массив пикселей перебирается. Как битмэп с Image'ем связать, надеюсь, знаешь. У Image'а свой есть, кстати, Image1.Picture.Bitmap Приложение: type TRGB=record b,g,r:byte; end; ARGB=array [0..1] of TRGB; PARGB=^ARGB; var b:TBitMap; procedure TForm1.FormCreate(sender:TObject); begin b:=TBitMap.Create; b.pixelformat:=pf24bit; b.width:=Clientwidth; b.height:=Clientheight; end; procedure TForm1.Tim1OnTimer(sender:TObject); Var p:PARGB; x,y:integer; begin for y:=0 to b.height-1 do begin p:=b.scanline[y]; for x:=0 to b.width-1 do begin p[x].r:=random(256); p[x].g:=random(256); p[x].b:=random(256); end; end; canvas.draw(0,0,b); end; procedure TForm1.FormDestroy(sender:TObject); begin b.free; end;

Ответ отправил: Злоумышленник (статус: 5-ый класс) Ответ отправлен: 03.04.2006, 11:08

Вопрос № 39.232

Здраствуйте ув. эксперты! Мне необходмо добавить повех формы и всех компонентов прозрачный рисунок, как это реализовать? Спасибо.

Отправлен: 02.04.2006, 22:26 Вопрос задал: 007Makc (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Leshiy2006 Здравствуйте, 007Makc! Попробуйте такой вариант - создайте поверх Вашей ещё одну форму, AlphaBlend:=True; и установите нужный коэффициент прозрачности. Удачи!

Ответ отправил: Leshiy2006 (статус: 6-ой класс) Ответ отправлен: 02.04.2006, 23:30

Вопрос № 39.238

Здрасте! У меня люди пара вопроса: 1) куда пихать ресулт при роботе с делфийским асмом? 2) этот самый асм умеет игратса с Extended? 3) как быстро обьяснить что в Extended сидит Integer (вытянуть цел. часть и передать другому вару как можно быстрее!)? 4) как быстро опредилить надо ли масив расшырять или нет (X mod N -- медлено, ввёл вар "последний реалок" теперь в 2 раза быстрее но надо ешё быстрее!) ? P. S. пишу навороченый скрипт-движок на делфи!

Отправлен: 03.04.2006, 01:08 Вопрос задал: Mirgorodchenko Anton (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Артём Шегеда Здравствуйте, Mirgorodchenko Anton! На первые три вопроса даю ответ в приложении. Рекомендую почитать "Assembler procedures and functions" в хелпе по Delphi. Четвёртый вопрос непонятен... Что значит "X mod N"? PS. Зачем массив только раз шЫрять? Можно ведь сразу раза три шЫрнуть... :) Приложение: function abc(a: integer; e: extended; c: integer):integer; assembler; asm fld e fsqrt mov eax, a add eax, c mov dword ptr e, eax fistp @result end;

Ответ отправил: Артём Шегеда (статус: 4-ый класс) Ответ отправлен: 03.04.2006, 04:31

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.21 от 03.04.2006