Zablokovali sa Vám dvere?

Užívateľ

Ako spustím nejaké exe-čko pomocou delphi - mohli by ste mi poradiť aký ej to príkaz ...

To je jedno čím sa to spustí trebárs aj buttonom ...

Dakujem

Zablokovaný užívateľ

kód:

uses ShellApi;
...
ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

Užívateľ

Dakujem, ale mam este jednu otazku - ako zmazat textovy subor - nie rewrite - ale nacisto zmazat ... existuje vobec daco take

Zablokovaný užívateľ

Proksik napísal:

Dakujem, ale mam este jednu otazku - ako zmazat textovy subor - nie rewrite - ale nacisto zmazat ... existuje vobec daco take

nie je zmazanie ako zmazanie. Má ho presunúť do koša, alebo úplne zmazať? Má sa dotazovať na odstránenie alebo user nemá o ničom vedieť? Má sa dať ten súbor potom cez tento istý program obnoviť? ...

úplný basic mazanie je takto:

kód:

function DeleteFile(const FileName: string): Boolean;

dá sa to prerobiť až to chceš niečo viac (ako som písal)

Užívateľ

toto mi nejde spustit - je ta chyba resp. ja chcem aby mi spustilo to som mam v nar. edite ....

Skúsený užívateľ

Mas tu akciu urobenu na nejake tlacitko?
Musis tam pisat komplet celu cestu k tej aplikacii tusim.

Užívateľ

pokial je exev suobre kde je toto exe tak sa to spusti to co je naisane v edite cize ak je v edite program tak sa spusti program.exe - ale mne hadze chybu pri tom ze do premmmenj play nastavit to co je v edite

kód:

procedure TForm1.SpustiClick(Sender: TObject);
var play : PansiChar;
begin
{Spusti EXE}
play:= edit1.text + '.exe';
ShellExecute(Handle, 'open', play , nil, nil, SW_SHOWNORMAL) ;
NACITAJ;
end;

Skúsený užívateľ

V subore? Myslis adresar, nie?
A na tom mieste kde davas premennu z editu je povolevy datovy typ "text" alebo "string"? Nechce to tam "char", alebo daky pointer? (teraz presne nepametam co tam ma byt...)

Užívateľ

No akoze ono to hadze chuby pri zapani do premennej play to co je v edit1 cize nie su kompatibilne premenne ...

Skúsený užívateľ

No takze ta sranda je takato:

kód:

Many times we need to execute another program from ours. To do this, we can use the ShellExecute function declared in the ShellAPI unit. The syntax is:

ShellExecute(Handle, Operation, FileName, Params, Folder, ShowCmd)

* Handle (HWND) is the window handle of the parent window, for instance the window handle of the main form of our application.
* Operation (PChar) is a pointer to a null terminated string that contains the name of the operation to perform, which can be 'edit' (launches an editor and opens the document for editing), 'explore' (explores the specified directory), 'find' (opens the find window starting from the specified directory), 'open' (executes or opens the file with the associated application), 'print' (printes the specified file) or 'properties' (displays the file or folder's properties). This parameter can also be nil and in this case 'open' will be assumed.
* FileName (PChar) is a pointer to a null terminated string that contains the path and the name of the application to execute, the document to open or print with its associated application, or the folder to open or explore.
* Params (PChar) is a pointer to a null terminated string that contains the parameters that will be passed to application specified in FileName. If FileName doesn't indicate an executable file but a document, then Params should be nil.
* Folder (PChar) is a pointer to a null terminated string that contains the path that will be taken as the application's folder by default. This parameter can be nil.
* ShowCmd (Integer) indicates the way the application specified in FileName will be shown. There are various possible values:
SW_HIDE
SW_RESTORE
SW_SHOW
SW_SHOWNA
SW_SHOWNORMAL
SW_SHOWDEFAULT
SW_MAXIMIZE
SW_MINIMIZE
SW_SHOWMAXIMIZED
SW_SHOWMINIMIZED
SW_SHOWMINNOACTIVE
SW_SHOWNOACTIVATE

Cize ocakava to PCHar datovy typ, co je pointer.....a teraz nak sa ozve dakto mudrejsi, bo pri svojich pokusoch v Delphi som zakapal prave na pointeroch, ani zaboha som ich nevedel pochopit

Užívateľ

Proksik napísal:

pokial je exev suobre kde je toto exe tak sa to spusti to co je naisane v edite cize ak je v edite program tak sa spusti program.exe - ale mne hadze chybu pri tom ze do premmmenj play nastavit to co je v edite

kód:

procedure TForm1.SpustiClick(Sender: TObject);
var play : PansiChar;
begin
{Spusti EXE}
play:= edit1.text + '.exe';
ShellExecute(Handle, 'open', play , nil, nil, SW_SHOWNORMAL) ;
NACITAJ;
end;

Niet cudo, ked mas ukazatel na Char, teda zapisujes do tebe-nealokovanej pamate...
spravne riesenie by malo byt nasledovne :

kód:

procedure TForm1.SpustiClick(Sender: TObject);
var play : string;
begin
{Spusti EXE}
play:= edit1.text + '.exe';
ShellExecute(Handle, 'open', PAnsiChar(play) , nil, nil, SW_SHOWNORMAL) ;
NACITAJ;
end;

Užívateľ

DAKUJEM

Zablokovali sa Vám dvere?

yoyo - jojo

Auto od PROFI CREDIT

Hľadáte CRM softvér?

Chcete darček pre svoje dieťa

Spustiť EXE v delphi

SEO - optimalizácia pre vyhľadávače

Freebsd