Как то неправильно запускается bat

[Alex Cones]

Написал так:

WinExec('1.bat', 0);

Но запускается как-то не так и файл res не создается. (в батнике записал: brcc32.exe ICON.rc)

Запускаю от руки - все нормально создается!
Пробовал ShellExecute:

ShellExecute(Handle, 'open', PChar(ExtractFilePath(paramstr(0))+'1.bat'), nil, nil, SW_SHOWNORMAL);

Результат тот же!

Пробовал WinExec(полный путь, SW_NORMAL); - Тот же эффект.

[raxp]

попробовал

WinExec('1.bat',SW_hide);
и
WinExec('1.bat',SW_show);

создается файл ресурсов

[Alex Cones]

procedure TForm1.Button4Click(Sender: TObject);
var l:TStrings;
I:Integer;
begin
Memo1.Lines.SaveToFile(S3+'\'+'ICON.rc');
l:=TStringList.Create;
l.Add('brcc32.exe ICON.rc');
l.SaveToFile(S3+'\'+'1.bat');
l.Free;
WinExec(PAnsiChar(S3+'\'+'1.bat'), SW_NORMAL);
{ShellExecute(Handle, 'open', PChar(ExtractFilePath(paramstr(0))+'1.bat'), nil, nil, SW_SHOWNORMAL);}
{DeleteFile(S3+'\'+'1.bat'); }
end;

И не работает. И краткий путь тоже пробовал

P.S.

procedure TForm1.FormCreate(Sender: TObject);
begin
GetDir(0,S3);
List := TStringList.Create;
end;

P.P.S. Ходил F7 - Все значения правильны.
P.P.P.S. И даже консоль появляется.

НАШЕЛ!!!! Поставил паузу в батнике и увидел, что он копается в какой то левой директории. Буду исправлять. Пока не клозьте, плиз.

Проблема в том, что батник получает директорию, в которой я копался при помощи OpenDialog. Как дать ему правильную директорию, если она у меня хранится в S3:String?
Если непонятно - поясню - после приглашения командной строки рабочей папкой является та, в которой я копался в openDialog. Мне нужно, чтобы рабочей папкой была та, в которой находится программа.

Попробовал перед командой компиляции приписать в батник следующее:

l.Add('Prompt '+S3);

Но появилась неожиданная трудность: русские символы в пути некорректно отобразились и - как следствие никакой корректной компиляции. Как сделать соответствие кодировок?

[mihali4]

Что-то вы тут опять мудрите...
Вот так у меня все прекрасно работает:

procedure TForm1.Button1Click(Sender: TObject);
var l:TStrings;
begin
Memo1.Lines.SaveToFile(ExtractFilePath(paramstr(0))+'\'+'ICON.rc');
l:=TStringList.Create;
l.Add('brcc32.exe '+ExtractFilePath(paramstr(0))+'\'+'ICON.rc');
l.SaveToFile(ExtractFilePath(paramstr(0))+'\'+'1.bat');
l.Free;
WinExec(PAnsiChar(ExtractFilePath(paramstr(0))+'\'+'1.bat'), SW_NORMAL);
end;

[Alex Cones]

Так будет прекрасно работать!
А если перед этим вызвать OpenDialog и перейти в какую нибудь дикторию и вызвать там файл - директория после приглашения в батнике будет та, в которой копался OpenDialogom.

ИМХО Нужно как-то извернуться и запустить батник так, чтобы у него рабочей директорией была та, в которой находится программа... Вот только как?

[mihali4]

Сообщение от Alex Cones

А если перед этим вызвать OpenDialog и перейти в какую нибудь дикторию и вызвать там файл - директория после приглашения в батнике будет та, в которой копался OpenDialogom.

Враки!
Вот совершенно нормально работающий код - пишет ICON.rc в каталог с проектом:

procedure TForm1.Button1Click(Sender: TObject);
var l:TStrings;
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Memo1.Lines.SaveToFile(ExtractFilePath(paramstr(0))+'\'+'ICON.rc');
l:=TStringList.Create;
l.Add('brcc32.exe '+ExtractFilePath(paramstr(0))+'\'+'ICON.rc');
l.SaveToFile(ExtractFilePath(paramstr(0))+'\'+'1.bat');
l.Free;
WinExec(PAnsiChar(ExtractFilePath(paramstr(0))+'\'+'1.bat'), SW_NORMAL);
end;
end;

хотя в OpenDialog была выбрана совершенно другая папка...

То Alex Cones
Вы что, кнопкой "Правка" пользоваться не умеете?
Что вы лепите посты по нескольку штук подряд?

[Alex Cones]

Враки, говорите? А как Вам это:?

var
  Form1: TForm1;
  S3:String;
  List:TStringList;
implementation


procedure TForm1.Button1Click(Sender: TObject);
Var
S,S2,S4:String;
begin
OpenDialog1.Execute;
S2:=OpenDialog1.FileName;
S2:=S2[Length(S2)-2]+S2[Length(S2)-1]+S2[Length(S2)];
If S2 = 'ico' Then S := 'ICON' Else
If S2 = 'cur' Then  S := 'CURSOR' Else
If S2 = 'bmp' Then S := 'BITMAP'Else
S := 'LOADONCALL';
S4 := OpenDialog1.FileName;
While Pos('\',S4)<>0 do
 Begin
  Delete(S4,1,Pos('\',S4));
 End;
List.Add(S4);
Memo1.Lines.Add('FILE'+ IntToStr(Memo1.Lines.Count + 1) + ' ' + S + ' '+ S4);
CopyFile(PAnsiChar(OpenDialog1.FileName), PAnsiChar(S3+'\'+S4), False);
end;


procedure TForm1.Button4Click(Sender: TObject);
var l:TStrings;
I:Integer;
begin
Memo1.Lines.SaveToFile(ExtractFilePath(paramstr(0))+'ICON.rc');
l:=TStringList.Create;
l.Add('brcc32.exe '+ExtractFilePath(paramstr(0))+'ICON.rc');
l.Add('Pause');
l.SaveToFile(ExtractFilePath(paramstr(0))+'1.bat');
l.Free;
WinExec(PAnsiChar(ExtractFilePath(paramstr(0))+'1.bat'), SW_NORMAL);

{ShellExecute(Handle, 'open', PChar(ExtractFilePath(paramstr(0))+'1.bat'), nil, nil, SW_SHOWNORMAL);}
{DeleteFile(S3+'\'+'1.bat'); }

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
GetDir(0,S3);
List := TStringList.Create;
end;

end.

На форме: OpenDialog1, батон1 и батон4, мемо1, жмакните на батон 1, выберите файл, потом на батон4. В батнике БУДЕТ ПУТЬ, КОТОРЫЙ БЫЛ В ОПЕНДИАЛОГ!

P.S. Сорри за даблпостинг - эмоции.

P.P.S. Да все файлы пишутся в правильные директории, неправильная директория появляется в приглашении DOS в батнике.

P.P.P.S. Если говорю туманно - вот мои действия по шагам:

1) Я открываю опендиалог и выбираю файл:

2) Далее я запускаю батник:

Путь в батнике - тот, который был в опендиалоге, несмотря на то, что программа находится в другой папке:

[mihali4]

Да все файлы пишутся в правильные директории, неправильная директория появляется в приглашении DOS в батнике.

Тоже враки!
Вот картинка:
Снимок1.GIF
Как видите - в батник пишется лишний слэш.

[raxp]

так... попробуй после использования opendialog поставить принудительно рабочую директорию

setCurrentDirectory()

[Alex Cones]

Спасибо! CurrentDirectory помогла!