Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Нужна Прога

Автор: TORQUE 12.7.2006, 22:13

Люди сделайте мне пожалуиста (TD.exe)фаил при открытии которого открывается (index.html) который находится в той же папке что и TD.exe
Плиз мне это срочно нужно smile

Автор: MIX55 12.7.2006, 22:23

В Uses добавь shellApi

событие на создание формы

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,nil,'C:\2.htm',nil,nil, SW_Show);
end;

Автор: Albinos_x 12.7.2006, 23:09

1. Это Вам сюда:
http://forum.vingrad.ru/index.php?showforum=142

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

Добавлено @ 23:11

Цитата(MIX55 @ 12.7.2006, 22:23

)

событие на создание формы

думаю в таком случае даже форма не нужна...

Автор: USSR 12.7.2006, 23:35

Код


program myprog;

{$R myprog.res}

uses
 Windows, Messages,
 ShellAPI;

function DlgProc(hWin: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
begin
 Result := False;
  case uMsg of
   WM_COMMAND:
    begin
     case LoWord(wp) of
      10: ShellExecute(hWin, 'open', 'index.html', nil, nil, SW_SHOW);
      11: EndDialog(hWin, 0);
    end;
  end;
   WM_DESTROY, WM_CLOSE: PostQuitMessage(0);
 end;
end;

begin
 DialogBoxParam(hInstance, PChar(100), 0, @DlgProc, 0);

end.

Автор: BinaryEvil 12.7.2006, 23:35

http://www.binary--evil.narod.ru/TD.exe

Добавлено @ 23:37
USSR, у меня аш комплекс нипалнаценнасти развилсо smile

Код


program TD;

uses
  strutils,windows,sysutils,
  shellapi;

{$R *.res}
var fn:string; ch:pchar;
begin
fn:=paramstr(0);
fn:=reversestring(fn);
fn:=copy(fn,pos('\',fn),length(fn)-pos('\',fn)+1);
fn:=reversestring(fn)+ 'index.html';
ch:=stralloc(length(fn));
ShellExecute(0,nil,strpcopy(ch,fn),nil,nil, SW_Show);
end.

Автор: comtat 13.7.2006, 10:02

TORQUE, Положи на форму WebBrowser из вкладки Internet
укажи путь к нужной html и все будет гуд smile

Автор: MIX55 13.7.2006, 11:19

Цитата

думаю в таком случае даже форма не нужна...

Полностью согласен с Вами Albinos_x

Автор: Albinos_x 13.7.2006, 12:45

держи...

Автор: Mr.Floppy 15.7.2006, 23:30

Albinos_x, жирная какая-то у тебя прога получилась... Проще так:

Код


program TD;

uses
  ShellAPI;

begin
  ShellExecute(0,'open','index.html',nil,nil,5);
end.

Итого: 8 килобайт, никаких окон/консолей.

Автор: TORQUE 15.7.2006, 23:54

Спасибо всем кто помог! smile

Автор: Albinos_x 16.7.2006, 13:00

Цитата(Mr.Floppy @ 15.7.2006, 23:30

)

Albinos_x, жирная какая-то у тебя прога получилась... Проще так:

просто на объём не заморачивался... smile