Pascalis atidaro .exe

Sveiki, ar imanoma pagaminti pascaliu tokia programa, kuri paleistu .exe failo shortcuta? Man reik paleist daug panasiu programu, bet visas jas maigyt uzsiknisimas, tai gal imanoma kaip nors suprogramuot nedidele programele kuri visus juos paleistu? Jei imanoma, tai butu idomu suzinot kaip visa tai uzrasyti (source code). Paskali siek tiek ismanau, tai visko galit nerasyt. Aciu! :)

Siaip galima su batch...

Atsidarai notepada, rasai visu programu pavadinimus, pvz

vienas.exe
du.exe
trys.exe

Ir issaugai pavadinimas.bat

Siaip galima su bash...

 

Atsidarai notepada, rasai visu programu pavadinimus, pvz

 

vienas.exe
du.exe
trys.exe

 

Ir issaugai pavadinimas.bat

siaip tai batch ne bash

batch zinau, bet man sito reik VDS serve. kadangi ji naudoja ~20 zmoniu, tai esu uzblokaves cmd, kad visokiu chunveibinu neprileistu su tais batch'ais. o pascal?.. arba gal zinot kaip uzblokuot cmd paprastiems useriams, o adminams palikt? OS: Windows XP

O būtinai pascal? Juk java, c++ ir kitos kalbos tikrai turi tokią funkciją.

deja tik paskaliu moku truputi programuot, o jei noreciau pats pakoreguot programa ar panasiai tai kitose kalbose pasiklysciau

Nežinau, bet turbo pascal radau googlej:

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.

Pakoregavus galima pritaikyti.

dekui labai, pabandysiu sita prisitaikyt :)

hmm, isbandziau cia ivairius variantus, bet nelabai nori veikt. gal dar kas zinot kaip galima padaryt? man reik, kad programa atliktu toki pat veiksma, koki atlieka "double-click" ant failo ir kad daugiau neitakotu tos programos darbo ;)

program DaugExe;
uses windows;

begin

winexec('C:\Program Files\Internet Explorer\iexplore.exe',1);
winexec('C:\Program Files\Adobe\Adobe Photoshop CS4 (64 Bit)\Photoshop.exe',1);
end.

Prikopink tiek eilučių ( winexec('TAVO KELIAS Į EXE',1);) ir viskas ;)

voo aciu labai! sita priverciau veikt, bet dabar turiu dar pora klausimeliu ;)

Pirmas:

pvz:

winexec('C:\Program Files\Internet Explorer\iexplore.exe',1);

Ka reiskia tas vienetas?

Antras:

Man reikia padaryt, kad failo kelia pasiimtu is .txt. Cia viskas paprasta: assign, read, A:string, bla bla ir t.t.

Tuomet bandau padaryti, kad "executintu" ta nuskaityta masyva ar paprasta kintamaji va taip:

winexec(A, 1);

arba:

winexec(x,1);

Ir cia jau iskyla erroras:

Incompatible type for arg no. 1: Got SHORTSTRING, expected PCHAR

Pakeiciu string i pchar ir gaunu run time error 216 general protection fault

Mano kodas:

program Loader;
uses windows;
var x:PChar;
cfg:text;
begin
assign(cfg, 'LoaderConfig.ini');
reset(cfg);
readln(cfg, x);
close(cfg);
  winexec(x, 1);
readln;
end.

viska iskarpiau iki paprasciausios, palikau tik pacia esme.. nesu girdejes apie PChar, tai jei kas zinot nepatingekit apsviest truputi ;)

Pirmas:

pvz:

winexec('C:\Program Files\Internet Explorer\iexplore.exe',1);

 

Ka reiskia tas vienetas?

Vienetas nurodo lango būseną paleidus tai yra :

0- Paslėptas langas

1-Normalus langas

2-Nuleistas langas

3.Padidintas langas

ir dar nemažai gali būti variantų apie kuriuos gali pasiskaityti http://msdn.microsoft.com/en-us/library/aa394375(VS.85).aspx pasirinkęs Show Window skiltį. Tiesa man ant Win7 ne visi langai tiksliai pagal tuos parametrus veikia .

Antras:

 

Man reikia padaryt, kad failo kelia pasiimtu is .txt. Cia viskas paprasta: assign, read, A:string, bla bla ir t.t.

Taip atrodo pascalio kodas:

program DaugExe;
uses windows;

var f:text;
x:string;
P : PChar;
begin

assign(f, 'duomenys.txt');
reset(f);

while not eof(f) do
begin

	readln(f, x);
	P := @x[1];
	winexec(p,1);
end;
close(f);
end.

Taip txt faile turi būti surašyta:

C:\Program Files\Internet Explorer\iexplore.exe
C:\Program Files\Adobe\Adobe Photoshop CS4 (64 Bit)\Photoshop.exe

viska iskarpiau iki paprasciausios, palikau tik pacia esme.. nesu girdejes apie PChar, tai jei kas zinot nepatingekit apsviest truputi

PChar tai yra Pointer to Char , o pointeris tai yra ne pats char o tik nuoroda į jį ;)

whoaaa, super. ;) labai dekoju visiems uz informacija! ;)