в избранное
сделать стартовой
написать письмо
Часто
|
|
| в избранное
сделать стартовой
написать письмо
|
|
|
|
|
Скачал для своей Delphi5 компонент, а там куча *.dpk и *.res файлов. Как установить этот компонент? Я пользуюсь FindFerst ,FindNext ,FindClose и после поиска все ,что они у меня нашли помещают в ListBox (имею ввиду файлы и их имена). А теперь вопрос: Как мне при выделении в ListBox и после нажатия кнопки (Button) удалялся тот файл который выделен? Прога Title так-то интересная! Но зачем она ваше нужна-то? Изменять настройки браузера? -Это не к чему!!! Поставил вашу программу. У меня два сидюка обычный и пишущий. программа открывает пишущий. Как сделать, что бы открывался обычный CD привод? Воспользовался Вашей программой Title 1.0 для замены надписи в Интернет-Эксплорере 6.0 со стандартной на надпись "Мой броузер". Все записалось. Теперь пробую изменить надпись, хочу написать IE-6, но ничего не меняется, в прежнее положение тоже не восстанавливается, хотя программа говорит, что все сменено. Может, где в реестре что-нибудь прописать "насильно"? Как добавить кнопку на панель управления IE как это сделано в ReGet ? Скачал исходники вашей программы StartMark. Я недавно перешел на Делфи и мне не понятно, как мою имеющуюся (главную) форму программы связать с вашими исходниками. Объясните пожалуйста. Как из ListBox удалить все повторяющие строки? Может быть вы и об этом знаете, но в вашей программке управлением СД, есть небольшой глюк. Она может открываться несколько раз, а точнее сколько захотите! И соответственно её значок, тоже появляется во множественном числе на панели задач. Точная задержка времени? Скачал для своей Delphi5 компонент, а там куча *.dpk и *.res файлов. Как установить этот компонент? Некак :-) если нет pas или dcu, res - ресурсы программы, в dpk смотри какие ещё файлы нужны в contains Я пользуюсь FindFerst ,FindNext ,FindClose и после поиска все ,что они у меня нашли помещают в ListBox (имею ввиду файлы и их имена). А теперь вопрос: Как мне при выделении в ListBox и после нажатия кнопки (Button) удалялся тот файл который выделен?
procedure TForm1.DeleteFile1Click(Sender: TObject);
begin
if MessageDlg('Delete File?'+#13
+(FileListBox1.FileName),mtConfirmation,[mbYes,mbNo],0)=mrYes then
Begin
if DeleteFile(FileListBox1.FileName) then
FileListBox1.Items.Delete(FileListBox1.ItemIndex)
Else
ShowMessage('ERROR'+#13
+'It was not possible to remove a file'+#13
+(FileListBox1.FileName));
End;
end;
Я делал это так, наверно ты понял что файл удаляет функция DeleteFile()
смотри в твоем случии вместо FileListBox1.ItemIndex будет
ListBox1.Items.strings[ListBox1.ItemIndex];
Прога Title так-то интересная! Но зачем она ваше нужна-то? Изменять настройки браузера? -Это не к чему!!! Программа служит как пример работы с реестром. В архиве есть исходник. Поставил вашу программу. У меня два сидюка обычный и пишущий. программа открывает пишущий. Как сделать, что бы открывался обычный CD привод? Программа работает только с одним драйвером, и сможет открывать закрывать только один CD , работа с несколькими CD будет в следующих версиях программы. Воспользовался Вашей программой Title 1.0 для замены надписи в Интернет-Эксплорере 6.0 со стандартной на надпись "Мой броузер". Все записалось. Теперь пробую изменить надпись, хочу написать IE-6, но ничего не меняется, в прежнее положение тоже не восстанавливается, хотя программа говорит, что все сменено. Может, где в реестре что-нибудь прописать "насильно"? Вообще программа Title 1.0 для IE 5 . может воспользоваться regedit в HKEY_LOCAL_MACHINE\Software\Microsoft\InternetExplorer\Main\ создай ключ 'Window Title' -значения которого и будет заголовок Internet Explorerа Как добавить кнопку на панель управления IE как это сделано в ReGet ? Подробную документацию можно найти, например, здесь msdn.microsoft.com/workshop/browser/ext/tutorials/button.asp Скачал исходники вашей программы StartMark. Я недавно перешел на Делфи и мне не понятно, как мою имеющуюся (главную) форму программы связать с вашими исходниками. Объясните пожалуйста. StartMark это не программа! (и не исходная программа) это компонент который можно добавлять в свой проект как другие компоненты (к.п. Button, Memo, Label, и. Т. д. ): 1. в папку c:\program files\borland\delphi5\lib\(эта папка по умолчанию) распакуй архив startmark.zip; 2. открываешь окно, Component\Install Component\ ; 3. выбери файл StartMark.pas далее ОК; 4. появится окошко Package в нем нажми кнопку Add+ и выбери файл MarkForm.pas 5. затем все откомпилируй, в Package кнопка Сompile. Как из ListBox удалить все повторяющие строки? Используй функцию DeleteCopy function DeleteCopy(s: Tstrings): Tstrings; var i,n: integer; begin i:=0; while i<>s.Count do begin n:=i+1; while n<>s.Count do begin if s.Strings[i] = s.Strings[n] then s.Delete(n) else n:=n+1; end; i:=i+1; end; result:=s; end; Может быть вы и об этом знаете, но в вашей программке управлением СД, есть небольшой глюк. Она может открываться несколько раз, а точнее сколько захотите! И соответственно её значок, тоже появляется во множественном числе на панели задач. В версии 1,2 этого уже нет. Точная задержка времени ? procedure Delay(d: word); assembler; label m1; begin asm mov dx,d mov ax,47 mul dx mov cl,8 shr ax,cl shl dx,cl add ax,dx push ax mov ah,0 int 1ah pop ax add dx,ax mov bx,dx m1: int 1ah cmp dx,bx jne m1 end; end; // Delay(100); задержка на 100 миллисекунд // Delay(6000); задержка на 1 минуту |
Copyright © 2000-2003 Grundic Все права остаются за автором. При полном или частичном использовании материалов ссылка на сайт обязательна. Эту страницу лучше просматривать в Internet Explorer 4 + с разрешением 800 x 600 и больше. |
