Pascal - Odkaz na exe soubor?

C++, C#, Visual Basic, Delphi, Perl a ostatní

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod masquote 6. 1. 2008 12:06

Zdravim, je možné odkázat z jednoho souboru v pascalu na jiný? Chci, aby se mi po stisknutí klávesy vypnul jeden program a spustil druhý, jde to nějak zařídit? Díky.
masquote
Kolemjdoucí

Odeslat příspěvekod lurk3r 6. 1. 2008 12:11

Co takhle použít podprogram?? V Pascalu se to myslím jmenuje procedura, v hlavním programu testuješ zmáčknutí klávesy a případně zavoláš proceduru-druhý program. Nevolá se jinej exe soubor, ale kus zdrojovýho kodu, cele se to pak zkompiluje do jednoho exe souboru.
Moderátor diskuzního fóra Živě.cz

If there is no space left on the device, there must be some space right ...
Co říká bezpečnostní software chycenému červovi? "Jsi zatčen! A nezkoušej na mě žádný fork()y!"
lurk3r
VIP uživatel
Uživatelský avatar

Odeslat příspěvekod Noclaf 6. 1. 2008 12:57

Jenze masquote pravdepodobne potrebuje spustit exe, ktery sam nedelal, tudiz k nemu nema zdrojak. :)

V Pascalu existuje nejaky prikaz, kterym se da zavolat externi program. Bohuzel se ale po tech letech nemuzu vzpomenout na jmeno :( . Zkus projet manual.

EDIT : Pamet se mi rozjela na plny obratky : myslim, ze to byl prikaz Exec - zkus si ho vygooglit, nebo vyjet z manualu.
SI ALTERUM SIT OPTANDUM, MALIM EQUIDEM INDISERTAM PRUDENTIAM QUAM STULTITIAM LOQUACEM
Merida AM 3000D 2008 + Sigma Sport Mirage EVO X;
Noclaf
Junior
Uživatelský avatar

Odeslat příspěvekod trsek 8. 1. 2008 22:42

Ano Exec ale v pascale to nieje take priamociare.
Je potreba
1. Zmenit stack, haldu a alokation memory prikazom {$M 21192,0,55360}
2. Zavolat swapvector
3. Zavolat exec
4. Zavolat swapvector

Mala ukazka tu http://www.trsek.com/pas/getfree
tak sa pusta prikaz zip
Programy zadania z Pascalu?
trsek
Junior
Uživatelský avatar

Odeslat příspěvekod Noclaf 9. 1. 2008 06:30

Z mych zkusenosti s Turbo Pascalem 6.0 ( :) ).
Bod 1 jsem velmi pravdepodobne nedelal.
Body 2 a 4 jsem urcite nedelal.
A vzdycky to fungovalo. :)
SI ALTERUM SIT OPTANDUM, MALIM EQUIDEM INDISERTAM PRUDENTIAM QUAM STULTITIAM LOQUACEM
Merida AM 3000D 2008 + Sigma Sport Mirage EVO X;
Noclaf
Junior
Uživatelský avatar

Odeslat příspěvekod peter.ntx 9. 1. 2008 15:44

co tak skusit WINEXEC
Ja vim pisu kravini ale co nadelam
peter.ntx
Junior

Odeslat příspěvekod trsek 11. 1. 2008 14:57

Ale jasne ak spustas nieco typu dir tak ano.
Skus spustit nieco vacsie.
Programy zadania z Pascalu?
trsek
Junior
Uživatelský avatar


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků