Файл настроек, запуск. Дельфи
2239
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.
какая разница, где у Вас прописывается?
какие ошибки и на каких строках? мы должны угадать?
Сейчас читают
Порчи, сглазы ,привороты
560761
773
Подсчёт трафика
4909
36
Израиль мочит коры
14167
74
Сибиряк
old hamster
VarНафига такой гиморой? Если нужен файл настроек, то луче сразу юзать ini - файлы
f:textfile;
А еще лучше TRegIniFile или TRegistry, т.е. реестр.
Реестр это хорошо, когда приложение "непереносимое". Если тебе нужно что то куда то перетащить, да ещё и с данными, то лучше ini
Сибиряк
old hamster
хорошие ссылки на хорошие сайты с хорошей инфой по хорошему дельфиВот тебе парочка:
http://web.ict.nsc.ru/~cancel/delphi/
http://delphimaster.ru