visual basicia lievästi opetelleena haluaisin tehdä sovelluksen, jossa olisi muutama command button, joista voisi käynnistää sovelluksia.
ja sitten vielä, miten siihen nappiin saisi sen ohjelman kuvakkeen, Picture -kohdasta se meni taustalle.
jos ohjelman antaa kaverille, pitää ilmeisesti ohjelman sovellukset olla mukana paketissa?
sovelluksen käynnistys?
3
809
Vastaukset
- xxxxx
Älä käytä Command buttoneita vaan PictureBoxeja.
Ohjelman käynnistät Shell komennolla, esim. Shell "c:\ohjelma.exe"
Vb:ssä (ostetussa) on mukana setup-paketin teko-ohjelma (se on samassa valikossa kuin vb).- jokk
aloin ajattelemaan asiaa liian monimutkaisesti.
pitääpä kokeilla huomenissa
- Delphikoodari..
Mulla ei ole kokemusta kuin Delphistä, mutta siinä homma onnistuu tosi hyvin :)
//=============================
!procedure TMainClass.RunAtCommandPrompt(const AExecutable, AParameters, AWorkPath: String);
!var
! SEInfo: TShellExecuteInfo;
! exitCode: DWORD;
!begin
! FillChar( SEInfo, SizeOf(TShellExecuteInfo), $00 );
! SEInfo.cbSize := SizeOf( TShellExecuteInfo );
! with SEInfo do
! begin
! fMask := SEE_MASK_NOCLOSEPROCESS;
! Wnd := Application.Handle;
! lpFile := PChar( AExecutable );
! lpParameters := PChar( AParameters );
! lpDirectory := PChar( AWorkPath );
! nShow := SW_SHOW; //SW_HIDE;
! end;
! // suoritetaan komento/ohjelma
! ShellExecuteEx( @SEInfo );
! // .. odotetaan kunnes on suoritettu!
! repeat
! Application.ProcessMessages();
! GetExitCodeProcess( SEInfo.hProcess, exitCode !);
! until (ExitCode STILL_ACTIVE) or Application.Terminated;
!end;
//============================
!procedure TMainClass.AliOhjelma;
!begin
! RunAtCommandPrompt( 'ohjelma.exe', '-c parametrit', 'C:\' );
!end;
Etu tässä on se, että voidaan käynnistää taustalla jokin sovellus (myös piiloitettuna), esim. jokin Java-sovellus ja jäädä odottamaan, kunnes tämä ulkoinen sovellus on suorittanut toimintonsa ja jatkaa siitä, kun tulos on valmis! :)
Onnistuneen ehkä Visual Basicilla myös, mutta en tunne sen koodia!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433017Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721684- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 381252
- 791080