Åbne program

det er faktisk meget simpelt, du tilføjer shellapi til din uses og koden er

shellexecute(handle,'open','c:\\windows\\notepad.exe',nil,nil,sw_shownormal);

Med ShellApi(tilføy i uses:

  ShellExecute(Handle, 'open', 'Calc', nil{ekstra parametre}, nil{katalog}, SW_SHOW);

Uten ShellApi (trenger kun Windows):

  WinExec('Calc', SW_SHOW);

Mvh
DiZpel

Ja.
Jeg har vist ikke meget at sige om dette.
De andre kom først og de virker.


Men lige noget andet:

Det er da en flot ønskeseddel du har skrevet på din hjemmeside

Det lyder næsten som min

Den er sådan. (Så nu kan andre også lige se den):

Ønskelisten

Den smarte ønskeliste hvor jeg skriver alle de ting jeg ønsker mig så man kan se dem online.


Penge til computerudstyr

Bog: Webdesign - illustreret håndbog (ISBN: 8779001637)

Sony Ericsson T610 (mobiltelefon u. abn.)

Battlefield 1942: Deluxe Edition (computerspil)

Battlefield Vietnam: (computerspil)

Unreal Turnament 2004 (computerspil)

ProTeco MegaStick 2 - 256MB (mp3 afspiller)



Ja, det viser godt nok at du er en nørd lige som alle os andre her på udvikleren. Alt er computer ting (og så en mobil)



Olginal ligger her:

http://bixi.dk/skriverier/onskelisten.php


Er den fra jul?


Nå ja, men det er da meget sjovt.
Og tag det roligt. Du er ikke den eneste der har sådan en.
Min er også kun med computer udstyr. min er bare GIGA lang og indenholder både (Bare noget af det jeg kan huskem, eller måske er det noget af det jeg ønsker mig nu):

Souround sound til pc'en
Commandos 3
Nyt bundkort med plads til pentium 4 eller andet godt (sætter det selv i)
Vis jeg får bundkort, så også en proceser, af bundkortets type.


Osv.

Den er bare lidt sjov. Og det er jo bare det eneste på din hjemmeside



Kunne bare ikke lade vær med at vise det...




Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


Man kommer aldrig videre, hvis alle er enige...

Hov.

Jeg har en anden kode end de andre...
De andre, kan jeg faktisk ikke se, burde virke:

Shellapi i userlisten

Og så dette

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shellExecute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;

Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


Man kommer aldrig videre, hvis alle er enige...