Jak zrobić takie coś:
Na formie jest tylko listbox (lub filelistbox) i w tym komponencie prz uruchomienu programu wyświetlane są wszystkie pliki o rozszerzeniu *.doc , które się znajdują w katalogu programu.
I jak też zrobić że jak się lkiknie na jakąś pozycję to uruchomi się ten program o rozszerzeniu *.doc?
Może (dla FileListBox):
[code]uses ShellAPI;
procedure Form1.FileListBox1Click(Sender:TObject);
var nazwa : String;
begin
nazwa := FileListBox1.FileName;
WinExec(PChar(nazwa), SW_SHOWNORMAL);
end;
[/code]
Może (dla FileListBox):
[code]uses ShellAPI;
procedure Form1.FileListBox1Click(Sender:TObject);
var nazwa : String;
begin
nazwa := FileListBox1.FileName;
WinExec(PChar(nazwa), SW_SHOWNORMAL);
end;
[/code]
No dobra jak uruchomić już wiem, ale jak zrobić, że przy uruchomienu programu do filelistbox'a są
wstawiane pliki z rozszerzeniem *.doc?
(oczywiście tylko te pliki, które są w katalogu z programem [???] !!!!)
Może (dla FileListBox):
[code]uses ShellAPI;
procedure Form1.FileListBox1Click(Sender:TObject);
var nazwa : String;
begin
nazwa := FileListBox1.FileName;
WinExec(PChar(nazwa), SW_SHOWNORMAL);
end;
[/code]No dobra jak uruchomić już wiem, ale jak zrobić, że przy uruchomienu programu do filelistbox'a są
wstawiane pliki z rozszerzeniem *.doc?
(oczywiście tylko te pliki, które są w katalogu z programem [???] !!!!)
F1 !! !!
Może (dla FileListBox):
[code]uses ShellAPI;
procedure Form1.FileListBox1Click(Sender:TObject);
var nazwa : String;
begin
nazwa := FileListBox1.FileName;
WinExec(PChar(nazwa), SW_SHOWNORMAL);
end;
[/code]No dobra jak uruchomić już wiem, ale jak zrobić, że przy uruchomienu programu do filelistbox'a są
wstawiane pliki z rozszerzeniem *.doc?
(oczywiście tylko te pliki, które są w katalogu z programem [???] !!!!)F1 !! !!
F1, sref1.
Tego na pewno nie ma nigdzie na 4p.
A anglik to lepiej nie mówić
Każdy mie odsyła...
Może jeżeli tak odsyłącie do F1 (a więc znacie anglika na bank) to ktoś się wysili i przetłumaczy całego help'a i umieści na 4p.
Więc ciągle czekam na odpowiedź na moje pytanie.
po co ?
jak ktos mi za to zaplaci...
Zastanow sie..
W ObjectPascalu piszesz generalnie w jezyku angielskim (nie liczas wstawek j.polskiego na wlasne komunikaty itp)
Wiec nie ma (przynajmniej dla mnie) roznicy czy help jest po ang czy polsku....
BTW: czas sie jezyka uczyc,zwazywszy ze j.ang. jest bardzo waznym jezykiem
Co do twego czekania na odp..
zamiast czekac..rusz makowka...tak bedzie ekonomiczniej i szybciej
po co ?
jak ktos mi za to zaplaci...
Zastanow sie..
W ObjectPascalu piszesz generalnie w jezyku angielskim (nie liczas wstawek j.polskiego na wlasne komunikaty itp)
Wiec nie ma (przynajmniej dla mnie) roznicy czy help jest po ang czy polsku....BTW: czas sie jezyka uczyc,zwazywszy ze j.ang. jest bardzo waznym jezykiem
Co do twego czekania na odp..
zamiast czekac..rusz makowka...tak bedzie ekonomiczniej i szybciej
Ale object Pascal to jest niedużo słówek.
Takie jak if end else then begin try except finally to każdy rozumie.
A co do zapłaty to o jakiej stawce myślisz.
I dalej czekam aż ktoś mi odpowie na moje pytanie...
Przecież w FileListBox'ie domyślnie jest folder programu.
[code]
FileListBox.Directory := ExtractFileDir(Application.Exename);
FileListBox.Mask := '*.doc';[/code]
Przecież w FileListBox'ie domyślnie jest folder programu.
[code]
FileListBox1.Directory := ExtractFileDir(Application.Exename);
FileListBox.Mask := '*.doc';[/code]
Dzięki!!
Tylko też nie pomyśl, że to wiedziałem [hurra] [hurra]