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

← →
JEK_DELPHI (2006-06-24 09:54) [0]

Глюк возникает тогда, когда путь к файлу имеет название с пробелом!
Как быть если програма в 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;

← →
Loginov Dmitry © (2006-06-24 11:05) [1]

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

← →
Virgo_Style © (2006-06-24 11:15) [2]

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

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

← →
JEK_DELPHI (2006-06-24 15:46) [3]

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

← →
Плохиш © (2006-06-24 15:48) [4]

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

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

← →
JEK_DELPHI (2006-06-24 15:54) [5]

Помогите!!!

← →
Virgo_Style © (2006-06-24 16:16) [6]

JEK_DELPHI (24.06.06 15:54) [5]

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

(c) анекдот

← →
Пусик © (2006-06-25 01: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;

← →
JEK_DELPHI (2006-06-25 20:16) [8]

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

← →
JEK_DELPHI (2006-06-27 12:59) [9]

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

← →
JEK_DELPHI (2006-06-28 13:12) [10]

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

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

← →
Василий (2006-06-29 16:39) [12]

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

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

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

Я не могу устранить глюк при запуску печати! ПОМОГИТЕ Найти похожие ветки