Rozmowy, rozmówki i debaty niesejmowe ...

Offtop Sacull 01-01-1970 36763 236
12-06-2006 20:05
Chyba każdy wie co tu pisać ... więc do dzieła ... :)
Naczelny zrzęda
12-06-2006 20:32
Napisałem wygaszacz ekranu dla DOS'a :smilewinkgrin: NAJPIERW odpalcie DOSWYG.EXE, a nie to drugie :D Spróbujcie ;)
12-06-2006 20:44
W czym to pisałeś ?
12-06-2006 20:46
W Pascalu :D Mocne, nie? :D
12-06-2006 20:47
SŁABEEEEEEEEE ....
Naczelny zrzęda
12-06-2006 20:47
Mocne, zwłaszcza podłożenie dźwięku :)

(daj listing kodu)
Jeżeli nie jest tajemnicą :)
12-06-2006 20:52
Daję bibliotekę PlayWave, jej kod i kod programu.
Widzicie, jaki dobry dla Was jestem? :D
12-06-2006 20:55
Dla nas może i tak, ale w pascalu nie ... inaczej sam byś potrzebne procedurki wyskrobał ... :P
Naczelny zrzęda
12-06-2006 20:55
Faja biblioteka... poszło do przodu :)
12-06-2006 20:57
Daje duże możliwości :D Można np. napisać MediaPlayera pod 286 (lub 8086 z koprocesorem) :D

Luk

12-06-2006 21:18
Dało by się napisać TRSa który po jakimś czasie bezczynności uruchamiał by wygaszacz z poziomu wiersza poleceń?
12-06-2006 21:20
Nie wiem, a właśnie, jak wywołuje się inne programy z poziomu Pascala, eksperci? :confused:
12-06-2006 21:56
była funkcja "exec" od execute czyli wykonać... dokładniej opowie Sacull lub Help (w pascalu jest bardzo rozbudowany)
12-06-2006 22:37
Wycią z help-a: Exec (procedure)     (Dos unit)
-------------------------------
Executes a specified program with a specified command line.

Declaration:
procedure  Exec(Path, CmdLine: string);

Target:
Real, Protected

Remarks:
Errors are reported in DosError. When compiling a program that uses Exec,
reduce the "maximum" heap size; otherwise, there won't be enough memory
(DosError = 8).

See Also:
DosError
DosExitCode
SwapVectors

Sample Code:

  {DOSXCODE.PAS}

{ 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.

Niestety, aż tak pięknie nie jest :) ... przynajmniej z pod windy :) Ale to już nie na Twe możliwości ... :)

P.S.
A o TSR-ach (@Luk - nie TRS) to już zapomnij ... :D
Naczelny zrzęda
13-06-2006 09:16
Dzięki. przyda się :D

Luk

13-06-2006 16:57
TSR jest taki trudny do napisania? Wogóle istnieje taki wygaszacz? Przydał by mi się.

Benchmarki ;):

IBM PC, procesor i8088 / Amstrad PC1640, procesor i8086 / Celeron 2.8 :)
[url URL=http://img110.imageshack.us/my.php?image=pr281dko3472637kx.jpg][img]http://img110.imageshack.us/img110/3232/pr281dko3472637kx.th.jpg[/img][/url]  [url URL=http://img158.imageshack.us/my.php?image=amscheck2xu.jpg][img]http://img158.imageshack.us/img158/9856/amscheck2xu.th.jpg[/img][/url]    [url URL=http://img117.imageshack.us/my.php?image=celecheck6nm.jpg][img]http://img117.imageshack.us/img117/8206/celecheck6nm.th.jpg[/img][/url]
13-06-2006 17:44
Luk napisał/a:
TSR jest taki trudny do napisania? Wogóle istnieje taki wygaszacz? Przydał by mi się.


TSR? To zależy od wprawy danego programisty:
1) Sacull - raczej nie powinien mieć problemów ...
2) Luk - możliwe problemy, ale powinien sobie z pomocą literatury poradzić ...
3) Haker - LOL, lepiej niech nawet nie próbuje, bo tylko wpadnie w depresję ... :D

A wygaszacz z pewnością istnieje, ale niestety nigdy nie był mi potrzebny - więc takowego nie posiadam :)
Naczelny zrzęda
13-06-2006 17:50
Panowie, gadamy gadamy a ja się muszę zapytać co to jest "TSR" ?
13-06-2006 17:55
Wikipedia:
Program rezydentny (TSR, Terminate and Stay Resident) to rodzaj programu komputerowego pozwalającego na uzyskanie prymitywnej wielozadaniowości w systemie operacyjnym DOS. Programy rezydentne to najczęściej sterowniki urządzeń nie obsługiwanych bezpośrednio przez MS-DOS albo małe programy narzędziowe z często używanymi przez użytkownika funkcjami.

Program rezydentny pozostaje w pamięci i jest niewidoczny, podczas gdy użytkownik może uruchamiać inne programy.
Naczelny zrzęda
13-06-2006 18:56
spoko programik ;] moge go podrasować?? (wybór oddtważanego pliku)

Ten wątek został zamknięty. Aby rozpocząć nową dyskusję, zaloguj się.