Jak uruchomić inny exe z poziomu TP ???
Tzn. umieszczam linka w kodzie tp kompiluje jakieś tam zdarzenie ... powiedzmy tam ... jeżeli przycisnę literkę "a" to uruchamia się mnie inny prg a zamyka obecny !!!
Problem w tym, że nie wiem jak ma to wyglądać znaczy ten link rzecz jasna ... !!!
Prosiłbym o kodzik najlepiej ale sępęm nie będe i wystarczy sam opis >>>> może dojde do czego sam ... !?!
jeśli chodzici o trubo pascala? to trzeba skorzystać z przerwania klawiatury :) wpisujesz do bufora nazwe programu i zamykasz swoj :)
automatycznie zostanie uruchomiony ten o ktory ci chodzi, a to przerwanie to 16h a funkcja zapisu do bufora to 05h
np
xor ax,ax
mov ah, 05h
mov cx, 1010h > powtarzasz dwa razy ten sam znak tutaj zostanie wcisnięty enter
int 16h
tylko to w pętelce :) np loop :) ale pamiętaj ze trzeba pamiętac cx :)
i miec buforek jakis
Jeśli nadal nie wiesz o co mi chodzi to daj znac na gg
Co ??
Wolniej proszę! [???]
Ja wolniej pisać nie umiem :) gdzie cos nie jasne? i to działą tylko i wyłącznie pod dosem ale tp jest tylko pod dosa :)
Nie o to chodzi ...
Nie chcę się dowiedzieć nic o klawiaturze itd. a interesuje mnie jak zrobić odwołanie do aplikacji (innej aplikacji) !!!!
Np jak w delphim ... wywołuje się shell API ,a w TP ki ciul wie !!!!
Nigdzie nie mogę tego wyszukać.
to trzeba było tak Od razu, w pascalu jest cos takiego jak exec :)
{ Example for DosExitCode and Exec }
{$M $4000,0,0 } { 16K stack, no heap }
uses Dos;
var
ProgramName, CmdLine: string;
begin
Write('Program to Exec (full path): ');
ReadLn(ProgramName);
Write('Command line to pass to ',
ProgramName, ': ');
ReadLn(CmdLine);
WriteLn('About to Exec...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('...back from Exec');
if DosError 0 then{ Error? }
WriteLn('Dos error #', DosError)
else
WriteLn('Exec successful. ',
'Child process exit code = ',
DosExitCode);
end.
przykład uzycia :)