/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Afslut et program og genstart det...
Fra : Michael Vilhelmsen


Dato : 01-08-06 09:16

Hej

Kan man ikke med en eller anden stump kode i et Delphi 5 program afslutte det (det er ikke noget problem ) og efterfølgende få det til at starte igen med det samme (Et problem for mig)......

Michael

--

Best Regards / Venlig hilsen
Michael Vilhelmsen
==========
Best Regards / Venlig hilsen

Michael Vilhelmsen



 
 
8600 (01-08-2006)
Kommentar
Fra : 8600


Dato : 01-08-06 21:18

Jeg vil fx compile dette program

****************************************
program restart;

uses
SysUtils,
Windows;


begin
if ParamStr(1) <> '' then
begin
Sleep(1000);
WinExec(PChar(ParamStr(1)), SW_SHOWNORMAL)
end;
end.

*******************************************

Hvis dit program hedder "MainProgam", så tilføj OnClose følgende

WinExec('restart MainProgram', SW_SHOWNORMAL)

så skulle den være hjemme.


//** Jeg ved godt at man ikke bør bruge WinExec mere. Men det er nemmest at
vise det sådan.
--
Carlsen

www.carlsensoftware.dk

"Michael Vilhelmsen"
<Michael.Vilhelmsen.PLEASEREMOVE@Microcom.PLEASEREMOVE.Dk> skrev i en
meddelelse news:mn.0a677d68fa37d768.11460@Microcom.PLEASEREMOVE.Dk...
> Hej
>
> Kan man ikke med en eller anden stump kode i et Delphi 5 program afslutte
> det (det er ikke noget problem ) og efterfølgende få det til at starte
> igen med det samme (Et problem for mig)......
>
> Michael
>
> --
>
> Best Regards / Venlig hilsen
> Michael Vilhelmsen
> ==========
> Best Regards / Venlig hilsen
>
> Michael Vilhelmsen
>
>



Michael Vilhelmsen (02-08-2006)
Kommentar
Fra : Michael Vilhelmsen


Dato : 02-08-06 09:48

Jeg takker.

Det virker fint.

Bruger nu bare ShellExecute i stedet for.

Michael


8600 used his keyboard to write :
> Jeg vil fx compile dette program
>
> ****************************************
> program restart;
>
> uses
> SysUtils,
> Windows;
>
>
> begin
> if ParamStr(1) <> '' then
> begin
> Sleep(1000);
> WinExec(PChar(ParamStr(1)), SW_SHOWNORMAL)
> end;
> end.
>
> *******************************************
>
> Hvis dit program hedder "MainProgam", så tilføj OnClose følgende
>
> WinExec('restart MainProgram', SW_SHOWNORMAL)
>
> så skulle den være hjemme.
>
>
> //** Jeg ved godt at man ikke bør bruge WinExec mere. Men det er nemmest at vise det sådan.
> --
> Carlsen
>
> www.carlsensoftware.dk
>
> "Michael Vilhelmsen" <Michael.Vilhelmsen.PLEASEREMOVE@Microcom.PLEASEREMOVE.Dk> skrev i en meddelelse news:mn.0a677d68fa37d768.11460@Microcom.PLEASEREMOVE.Dk...
>> Hej
>>
>> Kan man ikke med en eller anden stump kode i et Delphi 5 program afslutte det (det er ikke noget problem ) og efterfølgende få det til at starte igen med det samme (Et problem for mig)......
>>
>> Michael
>>
>> --
>>
>> Best Regards / Venlig hilsen
>> Michael Vilhelmsen
>> ==========
>> Best Regards / Venlig hilsen
>>
>> Michael Vilhelmsen
>>
>>

--

Best Regards / Venlig hilsen
Michael Vilhelmsen
==========
Best Regards / Venlig hilsen

Michael Vilhelmsen



Søg
Reklame
Statistik
Spørgsmål : 177579
Tips : 31968
Nyheder : 719565
Indlæg : 6409073
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste