Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как из программы запустить другое приложение, если путь к нему задан сумммой строк 
V
    Опции темы
vl1639
Дата 21.1.2009, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 17.12.2008

Репутация: нет
Всего: нет
В программе, в процессе ее работы, формируются папка и текстовый файл с данными. Не выходя из программы надо просмотреть данные, например, блокнотом (или другой прогой, которая лежит в папке с основной программой). Все ясно, если заранее известно имя файла и путь к нему. Но и то и другое формируются в процессе работы основной программы. И тут что-то не получается - указываю ли на путь к файлу или на сам файл, который должен по умолчанию открыться Блокнотом - получаю либо вообще ничего, либо файл не найден.       

Код

unit unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,
  Dialogs,ShellAPI, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Const stf:string='99'; {пусть это сформировала программа}
Var
 dirtek,dirdata,stNumfile :string;
 pchf:PChar;
begin
 GetDir(0,dirtek);
 dirdata:=dirtek+'\'+stf;
 stNumFile:=dirdata+'\dat'+stf+'.txt'#0;
 pchf:=@stNumFile;
{ ChDir(dirdata);}
{ ShellExecute(Handle,nil,pchf,nil,nil,SW_RESTORE);}
  WinExec(pchf,SW_RESTORE);
end;
end.
PM MAIL   Вверх
bems
Дата 21.1.2009, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Цитата(vl1639 @  21.1.2009,  14:49 Найти цитируемый пост)
stNumFile:=dirdata+'\dat'+stf+'.txt'#0;

ноль в конце дописывать не нужно
Цитата(vl1639 @  21.1.2009,  14:49 Найти цитируемый пост)
 pchf:=@stNumFile;

это или так
Код

pchf:=@stNumFile[1];
или так
Код

pchf:=pointer(stNumFile);



--------------------
Обижено школьников: 8
PM MAIL   Вверх
vl1639
Дата 21.1.2009, 21:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 17.12.2008

Репутация: нет
Всего: нет
Спасибо! Работает только ShellExecute и с нулем в конце и без оного. 
PM MAIL   Вверх
bems
Дата 21.1.2009, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
у стринга свой ноль в конце, поэтому хоть дописывай хоть нет - эффект один


--------------------
Обижено школьников: 8
PM MAIL   Вверх
vl1639
Дата 22.1.2009, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 17.12.2008

Репутация: нет
Всего: нет
Для ликбеза - а эта хрень 
Код

-@stNumFile
- если не на первый байт строки, то на что же она указывала?

Это сообщение отредактировал(а) vl1639 - 22.1.2009, 09:42
PM MAIL   Вверх
bems
Дата 22.1.2009, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
это указатель на указатель на первый символ


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0454 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.