Нужно перенести код с Delphi в С++

@Br.Misha · Регистрация: 28.02.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте, вот нашел пример запуска винампа для дельфи:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Запуск Winamp’а
Procedure StartWinamp;
var
WinampExe:string;
begin
reg := TRegistry.create;
reg.RootKey:=Windows.HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\CLASSES\Winamp.File\shell\open\command', False);
WinampExe := reg.ReadString('');
reg.Free;
if WinampExe<>'' then
begin
WinampExe:=copy(WinampExe, 2, length(WinampExe)-7);
WinExec(pchar(WinampExe), SW_SHOWNORMAL);
end;
end;

Теперь мне нужно его перенести на C++ builder, вот что я сделал:

C++
1
2
3
4
5
6
    AnsiString WinampEXE;
    TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
    reg->RootKey = HKEY_LOCAL_MACHINE;
    reg->OpenKey("Software\CLASSES\Winamp.File\shell\open\command", False);
    WinampEXE = reg->ReadString("");
    reg->Free();

Вобщем я не знаю как на C++ записать вот эти строчки:

Delphi
1
2
WinampExe:=copy(WinampExe, 2, length(WinampExe)-7);
WinExec(pchar(WinampExe), SW_SHOWNORMAL);

Помогите мне плиз.
Спасибо!

@MikeSoft · 05.07.2010, 17:08

Сообщение от Br.Misha

Delphi
1
WinExec(pchar(WinampExe), SW_SHOWNORMAL);

Выглядеть это будет примерно так:

C++
1
2
WinampEXE.SubString(2,WinampEXE.Length()-7);
WinExec(WinampEXE.t_str(), SW_SHOWNORMAL);

Метод t_str() зависит от версии билдера. В вашем случае, возможно использовании c_str()

@Somebody · 05.07.2010, 18:10

Сообщение от Br.Misha

reg->OpenKey("Software\CLASSES\Winamp.File\s hell\open\command", False);

Даже если работает, обратный слеш надо \\.

Сообщение от Standard

If the character following a backslash is not one of those specified, the behavior is undefined.

Сообщение от M$

If a backslash precedes a character that does not appear in the table, the compiler handles the undefined character as the character itself. For example, \c is treated as an c.

@Br.Misha · 05.07.2010, 18:22 **[ТС]**

Код компилиться, но, к сожалению, винамп не запускаеться((((.
Вот так я его хочу запустить:

C++
1
2
3
4
5
6
7
8
9
    AnsiString WinampEXE;
    TRegistry *reg = new TRegistry;
    reg->RootKey = HKEY_LOCAL_MACHINE;
    reg->OpenKey("Software/CLASSES/Winamp.File/shell/open/command", False);
    WinampEXE = reg->ReadString("");
    reg->Free();
        if (WinampEXE!="") ShowMessage("1"); else ShowMessage("0");
    WinampEXE.SubString(2,WinampEXE.Length()-7);
    WinExec(WinampEXE.c_str(), SW_SHOWNORMAL);

Для отладки я вставил сюда if (WinampEXE!="") ShowMessage("1"); else ShowMessage("0"); и оно мне постоянно возвращает 0, поэтому ошибка дето перед этой строкой.
В коде на дельфи написано reg.RootKey:=Windows.HKEY_LOCAL_MACHINE; а в С++

C++
1
reg->RootKey = HKEY_LOCAL_MACHINE;

Тоесть без Windows., мож ошибка де то тут?

Добавлено через 1 минуту
ЗЫ: пробовал ставить обратный слеш

@MikeSoft · 05.07.2010, 18:56

Br.Misha,

C++
1
2
3
4
5
6
7
8
AnsiString WinampEXE;
TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
reg->RootKey = HKEY_LOCAL_MACHINE;
reg->OpenKey("Software\\CLASSES\\Winamp.File\\shell\\open\\command", False);
WinampEXE = reg->ReadString("");
ShowMessage(WinampEXE);
delete reg;
reg = NULL;

Выполните этот код! Что у вас будет в переменной WinampEXE?

@Br.Misha · 05.07.2010, 19:10 **[ТС]**

MikeSoft, в переменной появился адрес ЕХЕшника винампа!!!!
Проблема решена! MikeSoft, ОГРОМНОЕ Вам спасибо!)))))))))))

Добавлено через 2 минуты
Упс, одна проблемка:
В конце, после адресса ЕХЕшника еще есть "%1", как его убрать?

Добавлено через 6 минут
добавил WinampEXE = WinampEXE.SubString(2,WinampEXE.Length()-7); - проблема решилась!

@MikeSoft · 05.07.2010, 19:11

Br.Misha, вот вам пример нахождения индекса позиции и обрезки лишнего:

C++
1
2
3
4
AnsiString WinampEXE = "test %1";
int pos = WinampEXE.Pos("%1");
WinampEXE.Delete(pos,strlen("%1"));
ShowMessage(WinampEXE);

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Br.Misha 5 / 5 / 2 Регистрация: 28.02.2010 Сообщений: 127
	05.07.2010, 19:10 [ТС]
	MikeSoft, в переменной появился адрес ЕХЕшника винампа!!!! Проблема решена! MikeSoft, ОГРОМНОЕ Вам спасибо!))))))))))) Добавлено через 2 минуты Упс, одна проблемка: В конце, после адресса ЕХЕшника еще есть "%1", как его убрать? Добавлено через 6 минут добавил WinampEXE = WinampEXE.SubString(2,WinampEXE.Length()-7); - проблема решилась! 0