Код: Выделить всё
@ECHO OFF
title jImBot 0.4.0 MOD dimaX VS warik
mode con cp select=1251
echo ---------------------------
java -jar modJB.jar
Код: Выделить всё
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, 'open', PChar(ExtractFilePath(Application.ExeName) + 'Start.cmd'), nil, nil, SW_SHOW); или ShellExecute(Handle, 'open', PChar(ExtractFilePath(Application.ExeName) + 'Start.cmd'), nil, nil, SW_RESTORE);
end;
Код: Выделить всё
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, 'open', 'D:\AppServ\www\Start.cmd'), nil, nil, SW_SHOW); или ShellExecute(Handle, 'open', 'D:\AppServ\www\Start.cmd'), nil, nil, SW_RESTORE);
end;
В чём ошибка?