Otwieranie Pliku,+ Zamykanie Formy

[jackraymund]

1.Więc potrzebuje takiego skrypta na button który otwiera plik który jest w tym samym folderze

znalazłem takie coś http://www.lukas-home-page.ovh.org/artykuly/delphi-ShellExecute.php

shellExecute(Handle,'open','C:\Dokumenty\Programy\Delphi\NetSpeak\NetSpeak.exe', nil, nil, SW_NORMAL);

ale nie umiem tego zrobic w buttona

2. Jak klikam na button, otwiera się nowa forma a zamyka stara

daje 5

[mustang512]

to na strone internetowa czy jak? napisz jasniej ; p w jakim jezyku np : C++ lub Php/Html ; p

[kilo_kartofli]

 

@up

głupi kurwa jesteś

W delphi ...

[mirraseq]

@1:

procedure TForm1.Button2Click(Sender: TObject);
begin
 shellExecute(Handle,'open','C:\Dokumenty\Programy\Delphi\NetSpeak\NetSpeak.exe', nil, nil, SW_NORMAL);
end;

 

@2:

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.show;
 form1.Hide;
end;

[jackraymund]

@up

a dało by się tak by otwierało plik z folderu w którym jest ten program?

tak porostu bleble.bmp?

czy zawsze trzeba wpisywać dokładne położenie pliku?

oczywiście leci 5 :]

[Numb]

Nie musisz podawać bezwzględnej ścieżki...

[jackraymund]

błąd

[Error] Unit1.pas(28): Undeclared identifier: 'ShellExecute'

Używam delhpi 7 tą rozszerzoną wersje

2 kod działa perfekcyjnie

[mirraseq]

Dodaj do uses ShellAPI, ścieżki nie musisz podawać tylko wtedy, kiedy ustawisz folder roboczy (uważaj przy odpalaniu, bo folder aplikacji uruchamiającej inną aplikację niekoniecznie musi zawierać pliki potrzebne do uruchomienia tejże aplikacji). Aby temu zapobiec, można zrobić sobie prockę odpalającą:

 

procedure TForm1.OdpalProgza(sciezka: string);
begin
 ShellExecute(Handle, 'open', PChar(sciezka), nil, PChar(ExtractFilePath(sciezka)), SW_NORMAL);
end;

 

@down: dokładnie

[jackraymund]

tam gdzie ścieżka to np. lo.bmp lub c;/lol.bmp ?