Текущий архив: 2006.07.16;
Скачать: CL | DM;
Вниз
Я не могу устранить глюк при запуску печати! ПОМОГИТЕ Найти похожие ветки
← →
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]
<p align="center"><font size="7"><span style="background-color: #FF0000">Помогите!!!</span></font></p>
← →
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]Люди добрые помогите!
← →
Плохиш © (2006-06-28 13:40) [11]
ShellExecute(0, "open", "write.exe", PChar(s), nil, SW_SHOWNORMAL);
← →
Василий (2006-06-29 16:39) [12]C:\Progra~1\Glyk\Print.rtf
← →
KygECHuK © (2006-06-29 16:50) [13]""
> C:\Progra~1\Glyk\Print.rtf
ExtractShortPathName(C:\Program files\Glyk\Print.rtf)
Страницы: 1 вся ветка
Текущий архив: 2006.07.16;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.077 c
