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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как запустить exe файл 
:(
    Опции темы
User
Дата 4.3.2005, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Как запустить exe файл по следующей схеме.
Я cохраняю в реестре путь. Затем хочу по следующей схеме его запустить.

Код
var
 FIniFile : TRegIniFile; // Для чтения из реестра
begin
 FIniFile :=TRegIniFile.Create('Software'); // Инициализация реестра
 FIniFile.OpenKey('VERTIKAL', true); // Открываю раздел 1
 FIniFile.OpenKey('Paroli', true); // Открываю раздел 2
 Edit1.Text :=FIniFile.ReadString('Name', 'Name1',  Edit1.Text); //читаю данные
 Winexe(PChar('Edit1.Text') ,  sw_ShowNormal);
 FIniFile.Free;
end;




Winexe('C:\Program\Par.exe', sw_ShowNormal); - так все работает окейно!
Winexe(PChar('Edit1.Text') , sw_ShowNormal); - а так читать из реестра путь и запускаться не хочет. Как сделать, что бы программа могла прочитав путь автоматически подставить его куды нужно, и запуститься? Я подозреваю что делаю точно что то не так.
Если можно то приведите код!

Это сообщение отредактировал(а) Alex - 5.3.2005, 08:53
PM MAIL WWW   Вверх
~FoX~
Дата 4.3.2005, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Пользуйся тэгами smile smile smile


Цитата(User @ 4.3.2005, 09:54)
Winexe(PChar('Edit1.Text') , sw_ShowNormal); - а так читать из реестра путь и запускаться не хочет.

А что говорит при этом?
Код

var
FIniFile : TRegIniFile; // Для чтения из реестра
s: string;
begin
 FIniFile :=TRegIniFile.Create('Software'); // Инициализация реестра
 FIniFile.OpenKey('VERTIKAL', true); // Открываю раздел 1
 FIniFile.OpenKey('Paroli', true); // Открываю раздел 2
 s :=FIniFile.ReadString('Name', 'Name1', ''); //читаю данные
 Winexe(PChar(s) , sw_ShowNormal);
 FIniFile.Free;
end



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Петрович
Дата 4.3.2005, 10:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55
Цитата(User @ 4.3.2005, 10:54)
Winexe(PChar('Edit1.Text') , sw_ShowNormal);

кавычки лишние здесь


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
User
Дата 4.3.2005, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Код

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Registry;

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);
var
 FIniFile : TRegIniFile;
 s: string;
begin
FIniFile :=TRegIniFile.Create('Software');
FIniFile.OpenKey('VERTIKAL', true);
FIniFile.OpenKey('Paroli', true);
s :=FIniFile.ReadString('Name', 'Name1', s);
WinExeс(PChar(s), sw_ShowNormal);
FIniFile.Free;
end;

end.



Вышло!

Это сообщение отредактировал(а) Alex - 5.3.2005, 08:54
PM MAIL WWW   Вверх
~FoX~
Дата 4.3.2005, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Петрович
Старею.......кавычки реально лишние..... smile

User
Всегда пожалуйста.............ПОЛЬЗУЙСЯ ТЭГАМИ smile smile smile

Кстати
Код

s :=FIniFile.ReadString('Name', 'Name1', s);

Убери "S" вконце, лучше поставь ' '

Это сообщение отредактировал(а) ~FoX~ - 4.3.2005, 14:06


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Dr.No_xXx
Дата 4.3.2005, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
User
ипользый теги так
Код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;

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);
var
FIniFile : TRegIniFile;
s: string;
begin
FIniFile :=TRegIniFile.Create('Software');
FIniFile.OpenKey('VERTIKAL', true);
FIniFile.OpenKey('Paroli', true);
s :=FIniFile.ReadString('Name', 'Name1', s);
WinExeс(PChar(s), sw_ShowNormal);
FIniFile.Free;
end;

end.
PM MAIL   Вверх
User
Дата 5.3.2005, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Да ты прав S лишнее
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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