» Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

Pavel_M2

А если надо не на Висте или 7 ???
Тогда на помощь приходит - GetProcessImageFileName


Добавлено:
Если надо - могу предоставить рабочий вариант, с определением пути, разрядности процесса(х64 или х86) а также из под какого юзера запущен процесс.

Как выводить звук с микрофона на колонки в реальном времени?
(желательно средствами bass).

п.с.
Тупанул, это можно в самой винде в свойствах микрофона выставить.

Цитата:

Aleksoid1978

А если надо не на Висте или 7 ???
Тогда на помощь приходит - GetProcessImageFileName


Добавлено:
Если надо - могу предоставить рабочий вариант, с определением пути, разрядности процесса(х64 или х86) а также из под какого юзера запущен процесс.

в том примере кода, что я послал, уже делается проверка на Vista or prior Vista (в случае НЕ Windows Vista достаточно GetModuleFileNamEx)
Для проверки, является ли процесс x86 или x64, можно использовать IsWow64Process (определенную, начиная с Windows XP SP2.. а раньше и нужно было, т.к. только начиная XP появились x64 OS от MS). Соответственно, при использовании IsWow64Process также надо быть аккуратным: использовать только "в связке" с GetProcAddress.

Pavel_M2

В твоем коде GetModuleFileNameEx - а она для х64 процессов не возвращает данные, поэтому надо юзать
GetProcessImageFileName ... но там есть подводные камни, т.к. вернется путь в виде \Device\HarddiskVolume1\Windows\system32\svchost.exe.

А еще надо быть аккуратным с IsWow64Process, т.к. - на х64 системах для х64 программ она всегда возвращает False в возвращаемый параметр(т.е. также как и для х86 программ на х86 системе).

Цитата:

Aleksoid1978

GetModuleFileNameEx - вызывается только для Windows XP и предыдущих.
Ок. Код для редакции Windows XP x64 работать не будет, но для Windows Vista and above будет вызываться QueryFullProcessImageName (вне зависимости от разрядности) и все будет работать тип-топ.

что касается IsWow64Process

Цитата:

А еще надо быть аккуратным с IsWow64Process, т.к. - на х64 системах для х64 программ она всегда возвращает False в возвращаемый параметр(т.е. также как и для х86 программ на х86 системе).

это естественно - ведь x64 процессы это не Wow процессы

Вопрос - кто использует ZEOS для доступа к MySQL на D2009 и выше ??? Интересует вопрос работы с UTF8 базами - кто смог побороть ???

В неуникодных Delphi все решалось легко - связка Zeos+TNT control + TNT fields.

А вот в 2009, 2010 и XE - не прокатывает.

P.S. - Вопрос снимается, в последних ревизиях все пофиксили ...

Можт кто знает
В windows XP и ранее такая фича работает без проблем
prog := tinifile.Create(ExtractFilePath(Application.ExeName) + 'baseconfig.ini');
а в windows 7 ошибочка выходитт, не подскажет ли кто в чем дело ?

Andryshok
C обновкой тебя!
У меня работает (Вынь7х32 и Вынь7х64), а что за ошибка?
Вот мой фрагмент

Код:
ProgramPath := ExtractFilePath(Application.ExeName);
ProgramName := ChangeFileExt(ExtractFileName(Application.ExeName), '');
IniFileName := ProgramPath+ProgramName+'.ini';
IniFileNameProp := ProgramPath+ProgramName+'D.ini';
IniFileNameValue := ProgramPath+ProgramName+'V.ini';
IniFileNameColor := ProgramPath+ProgramName+'C.ini';
IniFile := TIniFile.Create(IniFileName);
IniFile := TIniFile.Create(IniFileNameProp);
IniFile := TIniFile.Create(IniFileNameValue);
IniFile := TIniFile.Create(IniFileNameColor);

Andryshok
Да и в Delphi 2009 - Delphi XE работает без проблем. А у пользователя права на запись в ExtractFilePath(Application.ExeName) есть?

Andryshok
Повторить не удалось... У меня Windows7 64 Ultimate.

По крайней мере код типа

procedure TfMain.bbGetFileIniClick(Sender: TObject);
var
F : TIniFile;
begin
F := tinifile.Create(ExtractFilePath(Application.ExeName) + 'baseconfig.ini');
mMain.Lines.Add( F.FileName);
F.Free;
end;

отрабатывает без проблем...

Andryshok

Тоже все проходит нормально.
Проверьте что у вас отдает ExtractFilePath(Application.ExeName).

Andryshok
на этой ОС бывают проблемы при работе в каталогах с псевдонимами: аля "Мои Документы" и т.д.

Andryshok

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

Да, ошибка все таки с правами доступа.....
V1s1ter Я не обновлялся, сижу на XP.... это у пользователя у которого прога win 7



Цитата:

А у пользователя права на запись в ExtractFilePath(Application.ExeName) есть?

Это в десяточку - точно - он их не имеет, скажу пусть приобретает

Andryshok
При чем тут юзер? Надо просто писать туда, куда говорят гайдлайны (начиная с Вин2000), например в User\AppData, AllUsers\AppData и тд. Если очень уж требуется писать под себя (в Program Files например), то задавать права в приложении (манифест и тд), а не сваливать проблемы на юзера.

Или еще вариант - совсем удалить манифест. Тогда винда подумает, что запускается старый хлам, и включит виртуализацию

Да там и так он, дельфевый, для галочки, секции supportedOS нет, непонятно что думает винда. Во всяком случае если такое запускать из инсталлера, ворчит, что возможно все установилось не туда и не так

народ каким макаром можно откомпилить и проинсталлить dpk без запущенной среды?

mdid
Через командную строку, параметры почитай в хелпе, незабудь указать папки поиска если они необходимы.

mdid
Я использую процедуры из Silverpoint MultiInstaller
Для XE исходники нужно немного "допилить".

да читал..но параметры bds идут с запуском среды..хз..мож чет не то делаю..

mdid
Откомпилить можно еще с помощью MSBuild-а: http://www.alphaskins.com/forum/index.php?showtopic=4505 А проинсталить только руками внеся нужные правки реестр.

mdid
Поищу вечерком, были примеры вроде дома.

пасибо...думаю то что нужно

Цитата:

то задавать права в приложении (манифест и тд), а не сваливать проблемы на юзера.

Да в том приложении прав то кот наплакал...., да и скидывать его любят с флешки на флешку, так что хранню все настройки и прочее в папке с прогой

Andryshok
А как тогда в програм файлз записывают, если запущенное потом приложение не имеет прав? Тут явно нужен отдельный портабельный режим.

Frodo_Torbins Если прога буде развиваться то тут ваша правда, буде и портабле тада а тка......, вот записывают же иногда и в програм файлз...

ну так пишите манифест

Представляется необходимым внести в шапку ссылку на какую-либо бесплатную бибилиотеку TPngImageList (например, в интерпретации 0D0A).
Поскольку возможность полноценного использования в Delphi иконок в PNG-формате — вопрос весьма важный и глубоко фундаментальный.

Пасибо вам за подсказки со списком процессов с путями в 64х битах!
Получилось найти оптимальный вариант!!!

использовал все те же CreateToolhelp32Snapshot и GetProcessImageFileName предварительно получив привилегий SE_DEBUG_NAME
только возвращаются полные пути к процессам в "ядерном" формате, потом еще пришлось прогонять через отдельную функцию что бы получить привычные пути.

Aleksoid1978
GetProcessImageFileName - Именно через нее и получилось