» Вопросы по Delphi (до версии 2009) - часть 6

Bonivur

Цитата:

А кто мешает воткнуть флэшку с FAR или Total Commander и запустить всё что надо? Или же создать текстовый документ со строчкой вызова программы (например, C:\Windows\Notepad.exe) и поменять расширение на .bat ?

Чтобы создать батник нужно хотябы гдето его создать...рабочего стола как такогого не будет, флешка легко отключается в диспетчере устройств, который блокируется программой...и т.д. ну это уже уход от темы.. у меня на данный момент одна - Как отключить меню пуск в Win 7! Можно конечно заблокировать explorer, но эт не правильно как то...

GRom V
А

Код:
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), FALSE);

В принципе вариант Bonivurа должен сработать.
Хотя иногда бывает, что у пользователя стоит нестандартный шел. В этом случае единственный более менее надежный способ (кстати используемый в UAC) - это запуск проги на отдельном рабочем столе. Тут затруднения возникнут даже у очень продвинутых пользователей.
Но опять же при наличии времени пользователь может извернутся например через "Windows XP Mode". Короче получаем проблему меча и щита.

Bonivur

Цитата:

Код:
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), FALSE);

Спасибо за попытку, но к сожелению в семерке не пашет... - кнопка пуск работает...

GRom V
ИМХО отдельная тема будет уместнее.

GRom V
пробовал удалить ключ
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{a2a9545d-a0c2-42b4-9708-a0b2badd77c8}

Здравствуйте

Задача :
Пользователь указывает высоту (h) в мм .
Нужно, выбрать оптимальное сочитания колец
(что бы осталось как можно меньше мм, в лучшем случае 0)

Существуют кольца такой высоты :
1) 890 мм
2) 490 мм
3) 290 мм

Обязательные кольца:
1) 70 мм
2) 150 мм

То есть от указанной высоты (h) мы сразу отнимаем эти кольца.
h:=h-(70+150);

Вот интерфейс, что бы понятней было ..
[more] [/more]

P.S. Извините если ошибся разделом.
Заранее Спасибо.

Спасибо решено )..

Прошу помощи. Делаю проект на Delphi7 под Windows XPMode. На Виртуальной машине .exe запускается, а в Windows 7 - собщение: Зпуск программы невозможен, т.к. на компе отсутствует dss70.bpl. В чем причина?

pavlo1704

Цитата:

т.к. на компе отсутствует dss70.bpl. В чем причина?

Мммм попытаюсь предположить - на компе с вин7 нет такого файла. Возьми его с виртуалки и кинь в системную папку вин7 и все заработает.

А еще лучше его кинуть не в системную папку, а в папку с программой - нечего захламлять машины пользователей.

Возник такой вопрос:
Можно ли из Delphi программно настроить принтер на двухстороннюю печать, если он её поддерживает. И собственно реализация.

Подскажите, пожалуйста - как можно переименовать компьютер в домене в Delphi с последующей принудительной перезагрузкой (вызывать netdom не предлагать)?

Не работает отладчик Delphi, из-за чего это происходит? Как исправить проблему?

Event Log:

Thread Start: Thread ID: 6728. Process Project1.exe (5392)
Process Start: D:\test\Project1.exe. Base Address: $00400000. Process Project1.exe (5392)
Module Load: Project1.exe. Has Debug Info. Base Address: $00400000. Process Project1.exe (5392)
Module Load: ntdll.dll. No Debug Info. Base Address: $76F50000. Process Project1.exe (5392)
Module Load: KERNEL32.dll. No Debug Info. Base Address: $75BD0000. Process Project1.exe (5392)
Module Load: KERNELBASE.dll. No Debug Info. Base Address: $751E0000. Process Project1.exe (5392)
Module Load: OLEAUT32.dll. No Debug Info. Base Address: $75810000. Process Project1.exe (5392)
Module Load: ole32.dll. No Debug Info. Base Address: $759F0000. Process Project1.exe (5392)
Module Load: msvcrt.dll. No Debug Info. Base Address: $75EB0000. Process Project1.exe (5392)
Module Load: GDI32.dll. No Debug Info. Base Address: $757C0000. Process Project1.exe (5392)
Module Load: USER32.dll. No Debug Info. Base Address: $75DC0000. Process Project1.exe (5392)
Module Load: LPK.dll. No Debug Info. Base Address: $759E0000. Process Project1.exe (5392)
Module Load: USP10.dll. No Debug Info. Base Address: $770E0000. Process Project1.exe (5392)
Module Load: RPCRT4.dll. No Debug Info. Base Address: $75710000. Process Project1.exe (5392)
Module Load: ADVAPI32.dll. No Debug Info. Base Address: $75F60000. Process Project1.exe (5392)
Module Load: SECHOST.dll. No Debug Info. Base Address: $75E90000. Process Project1.exe (5392)
Module Load: MSIMG32.dll. No Debug Info. Base Address: $735D0000. Process Project1.exe (5392)
Module Load: VERSION.dll. No Debug Info. Base Address: $745F0000. Process Project1.exe (5392)
Module Load: COMCTL32.dll. No Debug Info. Base Address: $73D10000. Process Project1.exe (5392)
Module Load: SHLWAPI.dll. No Debug Info. Base Address: $75B70000. Process Project1.exe (5392)
Module Load: WINSPOOL.DRV. No Debug Info. Base Address: $70C70000. Process Project1.exe (5392)
Debug Output: Application cannot be debugged: stack is unwriteable Process Project1.exe (5392)

скажите можно ли загрузить в программу свой анимированный курсор(*.ani) из res (файла ресурсов) миную запись в temp (временный) файл

Всем доброго времени суток.
Вчера в руки попала БД домашних телефонов и адресов. БД в EXCEL(разбита по столбцам и ячейкам). Есть копия *.txt , но зашифрована и нормально открывается через FAR(пока не разбирался что и как, говорю как есть). Суть не в этом... Появилось предложение написать программу сэтими телефонами(ну то есть, не через excel или фар юзать, а нормальную delphi' евскую программу). Дело в том , что на достаточном уровне знаю pascal, но не могу разобраться с delphi, тоесть подробно мне объяснять не нужно =)


БД 2-х ВАРИАНТОВ МОГУ ПРЕДОСТАВИТЬ.

SIgor33

[more]
var
Form1: TForm1;
const
MyConst = 100;

С помощью этой константы мы зарезервируем новую позицию в свойстве Cursors глобального объекта Screen.
После чего подключаем файл ресурсов, т.е. если он у нас называется Cursors.res, тогда после

{$R *.DFM}

надо написать:

{$R Cursors.res}

После этого, допустим, по нажатию на кнопку пишем код:

Screen.Cursors[MyConst] := LoadCursor(hInstance,'MYCURSOR');
Screen.Cursor := MyConst;

Здесь 'MYCURSOR' - это имя курсора, который нам необходимо загрузить.
[/more]

Люди, у меня к вам такой вопрос. Я в Delphi новичок. Работаю по Borland Delphi 7 и хотел бы узнать, как можно сделать так, чтобы прога автоматом включалась при включении и перезагрузке компа. Нужен ответ о том, как это сделать именно в Делфи.

qwertyuiop2698596879
Антивирь отключите. Еще если у вас виста или семерка, то IDE можно попробовать запустить с правами администратора.

alfa246
Да, примерчики явно не помешают.

ruslan1718
http://delphikingdom.ru/asp/answer.asp?IDAnswer=43721

Frodo_Torbins
Пробовал отключать антивирус, не помогает. Win7, UAC отключен, IDE запускается с правами администратора.

qwertyuiop2698596879
После компиляции вы экзешник ничем не пакуете?
Кстати какая у вас версия делфи? А операционка случайно не x64?

Frodo_Torbins
ехе ничем не пакуется. Delphi 2010. OC 32-битная.

qwertyuiop2698596879
Тогда остается проверить права на папку с экзешником и на этом у меня варианты кончились
Попробуйте сами посмотреть через Process Explorer, возможно увидите нечто странное.

Добавлено:
alfa246
У ваших текстовых файлов довольно простой формат, просто они сохранены в DOS-кодировке. Вот тут неплохо написано как перегонять текст из DOS-кодировки в обычную: http://modulelab.ru/13-perekodirovka-teksta-iz-dos-v-windows-i-windows-v.html Но это только для Delphi2007 и младше.

Frodo_Torbins
С правами ничего необычного. В Process Explorer при запуске по F9 создается процесс и тутже завершается.

Frodo_Torbins
Честно говоря, не начинал разбирать что и как с базой(кстати большое спасибо)...
Мне требуется помощь в написание программы. Пока читаю учебники, но толком продвижения нет.
Может кто нибудь кинуть ссыль на исходник или пример похожей проги?

qwertyuiop2698596879
Явно конфликт с каким то системным софтом. Попробуйте поудалять антивирь, драйвера всякие.

Добавлено:
alfa246
Хм, я не совсем хорошо представляю себе что именно вы хотите получить, но вот вроде что то близкое: http://delphikingdom.com/asp/viewitem.asp?catalogid=847

Frodo_Torbins
Спасибо, разобрался! Фаерволл блокировал. Хотя раньше и проверял с отключенным фаерволлом, глюк какщй-то, блокировка видать при отключенном срабатывала.

Цитата:

qwertyuiop2698596879

Похоже на переполнение стека. Где то в коде рекурсия.

Добавлено:

Цитата:

ruslan1718

Нужно прописать программу в ветке реестра
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]

пример

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"LClock"="C:\\Program Files\\LClock\\lclock.exe"
"Rainlendar2"="C:\\Program Files\\Rainlendar2\\Rainlendar2.exe"

Всем привет, дали такое задание:
[more=задание]Задан изограф. Надо обойти все вершины графа, в каждой вершине побывав не более одного раза. Если это невозможно, то вывести соответствующее сообщение. Граф задается двоичной матрицей смежности. Матрица считывается из файла. Первая строка файла – количество N вершин графа, далее указывается сама матрица N*N.Пусть на графе обход уже начат. Определить, можно ли завершить этот обход. Если да, то указать последовательность обхода.
Реализовать с помощью рекурсии[/more]
Помогите люди добрые кто чем может)))Проблема собственно в том, что само задание понять не могу, посмотрел в википедии определение изограф, к моей задаче эт точно никакого отношения не имеет.С графами менного понятней, но все же, может у кого алгоритм сохранился или инфа какая.Реализовать алгоритм сложности не составит, мне бы его тока составить))Заранее спасибо.

mcdie

Цитата:

Подробнее..

Ваш вариант проходит только для обычных курсоров я о нем знаю. А для аннимированых не подходит. я зная как сделать с временным файлом, Просто не хочется лишний раз плодить всякие темпы