| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Я не могу устранить глюк при запуску печати! ПОМОГИТЕ [D7, XP]

JEK_DELPHI ©   (2006-06-24 09:54:00) 

Глюк возникает тогда, когда путь к файлу имеет название с пробелом!
Как быть если програма в C:\Program files\Glyk\Print.rtf
А вот код:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
   c:array[0..255] of char;
begin
s:=ExtractFilePath(Application.ExeName)+'Print.rtf';
if FileExists(s) then
begin
s:=s+' /p';

//тут правильно
StrPCopy(c,s);

//а вот тут глюк. как исправить?
shellExecute(handle,nil,'write.exe',c,nil,SW_HIDE);

end
else ShowMessage('Файл отсутствует!');
end;

---

KygECHuK   (2006-06-29 16:50:00) [1]

''
> C:\Progra~1\Glyk\Print.rtf


ExtractShortPathName(C:\Program files\Glyk\Print.rtf)

---

Василий   (2006-06-29 16:39:00) [2]

C:\Progra~1\Glyk\Print.rtf

---

Плохиш   (2006-06-28 13:40:00) [3]


ShellExecute(0, 'open', 'write.exe', PChar(s), nil, SW_SHOWNORMAL);


---

JEK_DELPHI   (2006-06-28 13:12:00) [4]

Люди добрые помогите!

---

JEK_DELPHI   (2006-06-27 12:59:00) [5]

Не помогает таже история пишет не может найти c:\program хотя прога и Print.rtf  в c:\Program Files\Glyk\

---

JEK_DELPHI   (2006-06-25 20:16:00) [6]

Щас попробую!!!

---

Пусик   (2006-06-25 01:00:00) [7]

var
 s: String;
begin
 s := '"' + ExtractFilePath(ParamStr(0)) + 'Print.rtf"';
 if FileExists(s) then
 begin
   s := s+' /p';
   ShellExecute(0,nil,'Write.exe',PChar(s),PChar(GetCurrentDir),SW_SHOW);
 end
 else ShowMessage('Файл отсутствует!');
end;

---

Virgo_Style   (2006-06-24 16:16:00) [8]

JEK_DELPHI   (24.06.06 15:54) [5]

- Ты смотри-ка, сколько языков знает!
- Ну и чем ему это помогло?

(c) анекдот

---

JEK_DELPHI   (2006-06-24 15:54:00) [9]


<p align="center"> <font size="7"><span style="background-color: #FF0000">Помогите!!!</span></font></p>


---

Плохиш   (2006-06-24 15:48:00) [10]

> JEK_DELPHI   (24.06.06 15:46) [3]
> Спасибо конечно но глюк остался!
> Люди у кого то есть ещё идеи???

Можно увидеть реализацию приведённых выше ответов?

---

JEK_DELPHI   (2006-06-24 15:46:00) [11]

Спасибо конечно но глюк остался!
Люди у кого то есть ещё идеи???

---

Virgo_Style   (2006-06-24 11:15:00) [12]

JEK_DELPHI   (24.06.06 9:54)
Как быть если програма в C:\Program files\Glyk\Print.rtf

"заключить название в кавычки"

---

Loginov Dmitry   (2006-06-24 11:05:00) [13]

s := Format('"%s"', [ExtractFilePath(Application.ExeName)+'Print.rtf']);

---

Наверх