Файл настроек, запуск. Дельфи
2233
10
как прописать запуск программки, если путь до неё читается из файла настроек в переменную. Пробовал
p:string;
WinExec(Pchar(p+'test.exe'), SW_SHOW);
а так же через ShellExecute , но везде постигла неудача
p:string;
WinExec(Pchar(p+'test.exe'), SW_SHOW);
а так же через ShellExecute , но везде постигла неудача
спасиб
слух, ты знаешь хорошие ссылки на хорошие сайты с хорошей инфой по хорошему дельфи, чтобы писать хороший код для хороших программ ?
Если знаешь - напиши плз, если не сложно
слух, ты знаешь хорошие ссылки на хорошие сайты с хорошей инфой по хорошему дельфи, чтобы писать хороший код для хороших программ ?
Если знаешь - напиши плз, если не сложно
craxx
рыжий котэ
Тут самый верхний топик называется Ссылки полезные всем. Смотри внимательнее.
да, и на счёт "нормального способа"
толи я не так объяснил, толи ты не так понял, но у меня путь до запускаемого файла прописывается в файле config.cfg откуда считывается в переменную, которая и представляет собой путь до запускаемого файла, вот мне и надо реализовать код, только пока голова сообразить не может что ему не нравится. И этот код что ты дал у меня в делфне 7 матерится плохими словами
толи я не так объяснил, толи ты не так понял, но у меня путь до запускаемого файла прописывается в файле config.cfg откуда считывается в переменную, которая и представляет собой путь до запускаемого файла, вот мне и надо реализовать код, только пока голова сообразить не может что ему не нравится. И этот код что ты дал у меня в делфне 7 матерится плохими словами
Юзай так...
procedure TForm1.Timer1Timer(Sender: TObject);
{Читаем путь}
Var
f:textfile;
begin
AssignFile(f,'config.cfg');
Reset(f);
ReadLn(f,c);
CloseFile(f);
end;
procedure TForm1.Button1Click(Sender: TObject);
{Запуск приложения}
var
w1: Word;
p1, p2: array[0..100] of Char;
begin
StrPcopy(p1, 'TEST');
if GetModuleHandle(p1) = 0 then
begin
StrPcopy(p2, c + 'LNetScan.exe');
w1 := WinExec(p2, SW_Restore);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
{Читаем путь}
Var
f:textfile;
begin
AssignFile(f,'config.cfg');
Reset(f);
ReadLn(f,c);
CloseFile(f);
end;
procedure TForm1.Button1Click(Sender: TObject);
{Запуск приложения}
var
w1: Word;
p1, p2: array[0..100] of Char;
begin
StrPcopy(p1, 'TEST');
if GetModuleHandle(p1) = 0 then
begin
StrPcopy(p2, c + 'LNetScan.exe');
w1 := WinExec(p2, SW_Restore);
end;
end;
да, и на счёт "нормального способа""нормальный", ибо CreateProcess.
толи я не так объяснил, толи ты не так понял, но у меня путь до запускаемого файла прописывается в файле config.cfg откуда считывается в переменную, которая и представляет собой путь до запускаемого файла
в IDE: WinExec+F1 и прочитайте почему не стОит.
думается, в Вашем случае вполне можно обойтись ShellExecute.
какая разница, где у Вас прописывается?
какие ошибки и на каких строках? мы должны угадать?
Сейчас читают
ЧР по футболу (часть 5)
233950
1000
MySQL.VisualStudio-1.0-Alpha и VS.NET2005
1751
2
ФК СИБИРЬ 2018-19
55079
55
Сибиряк
old hamster
VarНафига такой гиморой? Если нужен файл настроек, то луче сразу юзать ini - файлы
f:textfile;
А еще лучше TRegIniFile или TRegistry, т.е. реестр.
Реестр это хорошо, когда приложение "непереносимое". Если тебе нужно что то куда то перетащить, да ещё и с данными, то лучше ini
Сибиряк
old hamster
хорошие ссылки на хорошие сайты с хорошей инфой по хорошему дельфиВот тебе парочка:
http://web.ict.nsc.ru/~cancel/delphi/
http://delphimaster.ru