Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.09.2009, 14:49   #31
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

лол.. три страницы "бла бла бла", неужели досихпор не работает?

Что передаётся функции в качестве аргументов? (поставь бряк и проверь)
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 26.09.2009, 15:03   #32
Vol666
Гуру Разврата
Форумчанин
 
Аватар для Vol666
 
Регистрация: 29.07.2009
Сообщений: 373
По умолчанию

Еслиб работало то трёх страниц бы не было...
Фредди вернулся))) И Готов Убивать!!!
Vol666 вне форума Ответить с цитированием
Старый 26.09.2009, 15:10   #33
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Если не напишешь все аргументы, которые передались в функцию, то дальше обсуждать безсмысленно.....
Ибо пошёл флуд.
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 26.09.2009, 20:05   #34
Vol666
Гуру Разврата
Форумчанин
 
Аватар для Vol666
 
Регистрация: 29.07.2009
Сообщений: 373
По умолчанию Ура ShellExecute работает!!!

Вот SuperVisor был прав нада было убить свой компилятор, поставил 7-ку, работает без сучка, без задоринки, а ХР ужс. не пашет. Так собственно из-за чего такое может происходить?
Вот и решение, сразу не дошло пошагово запускть: Шелл не работал из за того что до этого были прописаны эти функции:
if CheckBox1.Checked=True then
begin
Reg:=TRegistry.Create;
Begin
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Wi ndows\CurrentVersion\Run',True);
Reg.WriteString('Tra',Application.E xeName);
Reg.Free;
End;
end
else
begin
Reg:=TRegistry.Create;
Begin
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Wi ndows\CurrentVersion\Run',True);
Reg.DeleteValue('Tra');
Reg.Free;
end;
end;
Фредди вернулся))) И Готов Убивать!!!

Последний раз редактировалось Vol666; 26.09.2009 в 20:41.
Vol666 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ShellExecute san72 Общие вопросы Delphi 6 16.05.2009 22:55
ShellExecute - параметр не работает? heart Win Api 2 12.03.2009 15:45
ShellExecute Zeraim Общие вопросы Delphi 1 07.05.2008 17:02
ShellExecute SNUPY Общие вопросы Delphi 4 19.02.2008 22:59
ShellExecute Volkogriz Общие вопросы Delphi 4 31.10.2007 13:33