Wykonanie polecenia w Lazarusie

[xam]

Cześć

Czy ktoś może wie w jaki sposób sprawić żeby po kliknięciu w lazarusie np. przycisku wykonała się zdefiniowana procedura lub polecenie w konsoli?

I czy można potem załadować np. do memo to co wyświetliła dana procedura w konsoli?

[Adawo]

Pewnie że ktoś wie... do odpalenia polecenia konsoli znam 2 metody:

1. funkcja Shell modułu unix
2. Klasa TProcess z modułu process

Tyle że jeśli chcesz mieć większą kontrole nad poleceniem (czyli miedzy innymi przypisania do TMemo strumienia wyjścia polecenia) to użyj TProcess.

Więcej o tej klasie poczytasz:
Executing External Programs z wiki Free Pascal

P.S Jak coś to mam przykład aplikacji pisanej z wiedzy czerpanej z wyżej wymienionego artykułu więc jak chcesz to mogę Ci podesłać...

[xam]

Jeśli byś mógł to prześlij zawsze na przykładzie jest łatwiej zrozumieć

[Adawo]

http://www.chomikuj.pl/kaktus/MiniConsole.tar.gz

Prosze bardzo, źródło programiku wykonującego wpisane konsolowe polecenie i wyświetla rezultat w TMemo.

[xam]

Dzięki Ci jesteś wielki :
O to właśnie mi chodziło, a wiesz może jak wykonywać komendy poprzedzone sudo? Bo aplikacja mi sie zwiesza jak próbuję wykonać taką komendę.

[vytah]

spróbuj gksudo?

[Adawo]

Znalazłem jeszcze jedną fajną rzecz dotyczącą właśnie wykonywania poleceń konsoli, a mianowicie komponent TCmdBox, więcej znajdziesz w wiki FPC: http://wiki.freepascal.org/CmdLine. Może się przyda...

[xam]

Cześć

powróciłem do walki ze swoją aplikacją:) Teraz pozostał tylko problem uruchomienia jej jako root, tymczasowo rozwiązałem to przy pomocy skryptu, ale chciałbym wykorzystać gksudo, tylko nie wiem jak zrobić żeby przed startem aplikacji było zapytanie o hasło . Co radzicie? Może zostać przy skrypcie i podawaniu hasła w konsoli?

Pozdrawiam

[vytah]

gksudo może przecież być w skrypcie... sam to kiedyś używałem

[Adawo]

Rzecz do zrobienia bardzo prosta, musisz dopisać do źródła projektu (Projekt -> pokaż źródło projektu) przed Application.Initialize swój kod, w tym wypadku sprawdzający wynik działania skryptu...

[xam]

przed Application.Initialize swój kod, w tym wypadku sprawdzający wynik działania skryptu...

Czyli skrypt np. w wyniku daje jakąś wartość i program na jej podstawie uruchamia sie jako root?
Dobrze myślę, bo trochę nie rozumiem

[Adawo]

Uruchamiasz skrypt, i jeśli rezultat skrypu będzie pozytywny, w tym wypadku poprawnie wpisane hasło, to uruchamiasz program, w przeciwnym razie nie. Mniej więcej w pseudokodzie:

if not WynikDzialaniaSkryptu then exit;

[command_dos]

Nie wiedziałem, że temat był już wałkowany - ja napisałem coś takiego, w tym wątku:

viewtopic.php?t=44070&page=3

może tutaj znajdziesz odpowiedź na to jak wykonać skrypt w trybie admina...