| GRRRRRR a întrebat:

Am gasit si eu un program facut in pascal care deschide automat. Iata-l aici:
program runexe;
{$M 16000, 0, 0}
{$S+,D+,R+, B-}
Uses Dos;
Type TStrCmd = String [ 79 ];
Procedure ExecCmd ( sCmdLine : TStrCmd );
var nErr : Longint;
sCmd : String;
begin
sCmd := GetEnv ( 'COMSPEC');
If sCmdLine " then
sCmdLine:='/C '+ sCmdLine;
SwapVectors;
Exec (sCmd, sCmdLine);
SwapVectors;
nErr:=DosError;
If nErr 0 then
writeln('mistake: ', nErr, ' - cant be done ', sCmdLine);
end;
procedure RunExe_TEST;
var sCmdLine:TStrCmd;
begin
sCmdLine:='Dir';
ExecCmd(sCmdline);
sCmdLine:='Notepad.EXE';
ExecCmd(sCmdLine);
sCmdLine:='Rundll32.exe shell32.dll, Control_RunDll TweakUI.cpl';
Exec(sCmdLine,'Rundll32.exe shell32.dll, Control_RunDll TweakUI.cp');
readln;
end;
begin
RunExe_TEST;
end.




Mi-as dori sa il transform sa pot deschide alte programe si nu am habar ce sa schimb in sintaxa.Da-ti-mi niste sugestii ce sa schimb.Multumesc anticipat!

Răspuns Câştigător
| CaffeBoy a răspuns:

In c++ scrii
#include
int main()
{
system("notepad.exe");
}

si ti-ai deschis notepad

4 răspunsuri:
| CaffeBoy a răspuns:

Schimbi sCmdLine:='Notepad.EXE';
pui in loc de Notepad.EXE numele (sau locatia) a ce vrei tu sa deschida

| CaffeBoy a răspuns (pentru CaffeBoy):

Acum ca ma uit mai bine obs. asta
begin

sCmdLine:='Dir';

ExecCmd(sCmdline);

sCmdLine:='Notepad.EXE';

ExecCmd(sCmdLine);

sCmdLine:='Rundll32.exe shell32.dll, Control_RunDll TweakUI.cpl';

Exec(sCmdLine,'Rundll32.exe shell32.dll, Control_RunDll TweakUI.cp');

readln;

end;


Presupun ca ar trebui sa stabileasca directorul fisierului de deschis.
E mai usor in C++ sincer laughing pui doar system(" director "); si gata.

| GRRRRRR explică (pentru CaffeBoy):

Am scris in loc de de nume locatia si nu imi da eroare dar tot nu deschide de ex.:Recycle Bin de pe desktop...

| CaffeBoy a răspuns (pentru GRRRRRR):

In c++ scrii
#include
int main()
{
system("notepad.exe");
}

si ti-ai deschis notepad

| GRRRRRR explică:

Deschide AUTOMAT NOTEPAD.EXE, Ma Scuzati...