Just nu i M3-nätverket
Jump to content

Binda program...


WertyC

Recommended Posts

Jag är en nybörjare på delphi...så reta mig inte för att jag inte kan detta :)

Jag undrar hur man binder andra program till sitt delphiprg...alltså att när man klickar på nåt så ska ett annat prg i samma mapp (eller kanske en annan) startas...skulle även vilja veta hur man gör så att det andra programet startas automatiskt i uppstarten...

 

//WertyC

Link to comment
Share on other sites

För att öppna en annan fil/program så använder du denna kod...

---

uses

ShellApi

 

ShellExecute(0, nil, 'c:\windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

---

 

För att starta programmet vi uppstart så är det bara att lägga en genväg till programmet i autostart! Eller så kan du skapa en regfil som lägger till sig i registret på datorn.

Öppna Anteckningar och skriv in detta:

---

REGEDIT4

 

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]

 

"Delphi program"="C:\\delphi\\start.exe"

---

Delphi program : namnet på programmet

C:\\delphi\\start.exe : är filen som ska startas

När du sparar så ska du skriva "minfil.reg" med situationstecken.

 

hoppas att detta var till någon hjälp!

 

/Mikey

Link to comment
Share on other sites

Tack...det hjälpte, fast det med uppstart av program, där menade jag inte när man startar win, utan när man startar sitt eget prg, så ska ett till startas.

 

MVH//WertyC

Link to comment
Share on other sites

btw...vart ska jag lägga den koden?

för det jag vill är att t.ex. progget ska startas när jag klickar på en knapp...(button1)

 

//WertyC

Link to comment
Share on other sites

För att öppna ett annat program när du trycker på en knapp så gör du såhär:

 

*Sätt en knapp på form1

*Dubbelklicka på knappen

// Då kommer följande fram

procedure TForm1.Button1Click(Sender: TObject);

begin

 

end;

 

*då skriver du bara in följande mellan begin och end;

ShellExecute(0, nil, 'c:\windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

 

Resultat:

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(0, nil, 'c:\windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

end;

 

Nu öppnar den notpad när du trycker på knappen!

 

hoppas att du förstår...

 

/Mikey

Link to comment
Share on other sites

Tack!

Det jag inte fattade först var vart ShellApi skulle vara, lyckades "klura" ut det sen, tack!

 

//WertyC

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...