ShellExecute -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.129.39.55]

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Rouse_,

Krid

Модераторы: Rouse_, Krid

Новое голосование

ShellExecute , ShellExecute в Win95

shurik247	Сообщ. #1 , 09.11.03, 10:59
Member Профиль · PM Рейтинг (т): 9	Почему сабж в Win95 запускает только EXE, как запустить например txt

Clane	Сообщ. #2 , 09.11.03, 11:04
Master Профиль · PM Рейтинг (т): 3	Вызвать "NotePad"

Guest	Сообщ. #3 , 10.11.03, 09:27
Unregistered	ShellExecute(Handle, PChar('open'), PChar('c:\test.txt'), nil, nil, SW_SHOWNORMAL); Все работает .... Под Win2K и Win98

Vit	Сообщ. #4 , 10.11.03, 14:27
Guru Профиль · PM Поощрения: 16 Dgm Рейтинг (т): 181	Дело не в ShellExecute, а в том что скорее всего нет ассоциации txt файлов с какой-либо программой.

Diamond	Сообщ. #5 , 10.11.03, 17:29
Full Member Профиль · PM Рейтинг (т): 2	Ну не мы же винды писали....

Vit	Сообщ. #6 , 10.11.03, 18:19
Guru Профиль · PM Поощрения: 16 Dgm Рейтинг (т): 181	А при чём здесь винды - как у тебя настроенно так она и делает.

shurik247

Сообщ. #7 , 11.11.03, 20:08

Member

Профиль · PM

Рейтинг (т): 9

QUOTE (Vit @ 10.11.03, 14:27)

Дело не в ShellExecute, а в том что скорее всего нет ассоциации txt файлов с какой-либо программой.

Во первых, что вы все напали на txt, запускаюстся только exe, а остальные нефига.
Во вторых, как может не быть ассоциации, иконка то откудато берется и в эксплорере то он запускается!

shurik247	Сообщ. #8 , 11.11.03, 20:10
Member Профиль · PM Рейтинг (т): 9	Ладно, вспомню как работать с реестром, напишу свой ShellExecute

pigas	Сообщ. #9 , 12.11.03, 03:09
Profi Профиль · PM Рейтинг (т): 18	WinExec попробуй...........

Anatoly Podgoretsky

Сообщ. #10 , 15.11.03, 07:59

Master

Профиль · PM

Поощрения: 2 Dgm

Рейтинг (т): 110

QUOTE (shurik247 @ 11.11.03, 23:08)

У тебя ошибка в программе и так не работает?

CODE

ShellExecute(0, nil, 'c:\test.txt', nil, nil, SW_SHOWNORMAL);

И какое значение возвращаете функция.

Ты очень высокого мнения о нашмх телепатических возможностях, но меня терзает смутное сомнение нужен ли тебе вообще ответ, не является ли целью просто потрепаться.

shurik247

Сообщ. #11 , 15.11.03, 23:53

Member

Профиль · PM

Рейтинг (т): 9

QUOTE (Anatoly Podgoretsky @ 15.11.03, 07:59)

не является ли целью просто потрепаться.

У меня никогда не было такой цели. Все что я спрашиваю я пишу в данный момент и по ходу у меня возникают вопросы.
Ты хоть проверял эту строчку, что ты написал, в Win95? А я проверял!
Специально для тебя кусок кода

CODE

Procedure TExpList.Exec;
Var Sel:Uint;
Buff:array[0..255]of Char;
FLIN:TWin32FindData;
Fnd:Uint;
MousPos:TPoint;
ItRect:TRect;
Begin
MousPos:=eExecPos;
Sel:=ListView_GetSelectionMark(sCHandle);
ListView_GetItemRect(sCHandle,Sel,ItRect,0);
//ScreenToClient(sCHandle,MousPos);
If (MousPos.X<=ItRect.Left)or(MousPos.X>=ItRect.Right)or
(MousPos.Y<=ItRect.Top)or(MousPos.Y>=ItRect.Bottom)
Then Exit;
If Sel<0 Then Exit;
ListView_GetItemText(sCHandle,Sel,0,Buff,255);
Fnd:=FindFirstFile(PChar(Path+CharToString(Buff)),FLIN);
If Fnd=0 Then Exit;
FindClose(Fnd);
If (Flin.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)=0
Then
ShellExecute(0,'open',Buff,nil,PChar(Path),SW_NORMAL)
Else Path:=Path+CharToString(Buff)+'\';
End;

Также пробовал:
ShellExecute(0,nil,Buff,nil,PChar(Path),SW_NORMAL)
ShellExecute(0,nil,PChar(Path+CharToString(Buff)),nil,nil,SW_NORMAL)

А вот какое значение возвращает функция напишу попозже.

Сообщение отредактировано: shurik247 - 16.11.03, 00:05

Anatoly Podgoretsky

Сообщ. #12 , 16.11.03, 09:44

Master

Профиль · PM

Поощрения: 2 Dgm

Рейтинг (т): 110

Ладно подождем, но не долго.
Вместо привежения кусков кода, полезнее указать, что же ты посылаешь в эти функции и не утаивать стратегическую информацию о возврате.

Или ты расчитываешь на наши телепатические способности?

shurik247	Сообщ. #13 , 18.11.03, 14:15
Member Профиль · PM Рейтинг (т): 9	Извеняюсь за поздний ответ и за тему, совсем нет времяни. Проблема не в функции, а в программе, надо ее исправлять, правда где, ну ладно

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0651 ] [ 17 queries used ] [ Generated: 27.04.24, 01:53 GMT ]