Rozmowy, rozmówki i debaty niesejmowe ...

Offtop Sacull 01-01-1970 37636 236

Sacull

12-06-2006 20:05
Użytkownik 315 postów
Chyba każdy wie co tu pisać ... więc do dzieła ... :)
Naczelny zrzęda

Heretic

12-06-2006 20:32
Użytkownik 1130 postów
Napisałem wygaszacz ekranu dla DOS'a :smilewinkgrin: NAJPIERW odpalcie DOSWYG.EXE, a nie to drugie :D Spróbujcie ;)

Admin

12-06-2006 20:44
Użytkownik 1096 postów
W czym to pisałeś ?

Heretic

12-06-2006 20:46
Użytkownik 1130 postów
W Pascalu :D Mocne, nie? :D

Sacull

12-06-2006 20:47
Użytkownik 315 postów
SŁABEEEEEEEEE ....
Naczelny zrzęda

Admin

12-06-2006 20:47
Użytkownik 1096 postów
Mocne, zwłaszcza podłożenie dźwięku :)

(daj listing kodu)
Jeżeli nie jest tajemnicą :)

Heretic

12-06-2006 20:52
Użytkownik 1130 postów
Daję bibliotekę PlayWave, jej kod i kod programu.
Widzicie, jaki dobry dla Was jestem? :D

Sacull

12-06-2006 20:55
Użytkownik 315 postów
Dla nas może i tak, ale w pascalu nie ... inaczej sam byś potrzebne procedurki wyskrobał ... :P
Naczelny zrzęda

Admin

12-06-2006 20:55
Użytkownik 1096 postów
Faja biblioteka... poszło do przodu :)

Heretic

12-06-2006 20:57
Użytkownik 1130 postów
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
Użytkownik 496 postów
Dało by się napisać TRSa który po jakimś czasie bezczynności uruchamiał by wygaszacz z poziomu wiersza poleceń?

Heretic

12-06-2006 21:20
Użytkownik 1130 postów
Nie wiem, a właśnie, jak wywołuje się inne programy z poziomu Pascala, eksperci? :confused:

Admin

12-06-2006 21:56
Użytkownik 1096 postów
była funkcja "exec" od execute czyli wykonać... dokładniej opowie Sacull lub Help (w pascalu jest bardzo rozbudowany)

Sacull

12-06-2006 22:37
Użytkownik 315 postów
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

Heretic

13-06-2006 09:16
Użytkownik 1130 postów
Dzięki. przyda się :D

Luk

13-06-2006 16:57
Użytkownik 496 postów
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]

Sacull

13-06-2006 17:44
Użytkownik 315 postów
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

Admin

13-06-2006 17:50
Użytkownik 1096 postów
Panowie, gadamy gadamy a ja się muszę zapytać co to jest "TSR" ?

Sacull

13-06-2006 17:55
Użytkownik 315 postów
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

Gracjan

13-06-2006 18:56
Użytkownik 1365 postów
spoko programik ;] moge go podrasować?? (wybór oddtważanego pliku)

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