Paky
19-08-2006, 17:33
premetto che nn sono un programmatore e mi scuso se irrompo in questa sezione come un elefante in una cristalleria, ma nn so davvero a chi chiedere aiuto
Ho per le mani la soluzione ad un problema che ho con un programma (progDVB) che sul mio PC crasha
sfortunatamente mi mancano i mezzi e conoscenze per operare
a questo -> link (http://forum.progdvb.com/old/showflat.php?Cat=&Board=Progdvb&Number=5168&page=9&view=collapsed&sb=5&o=&fpart=1) un utente posta la soluzione del problema che consiste in un eseguibile di sua programmazione che va a fare da launcher al ProgDVB e ne impedisce il crash
riporta anche il codice
program ProgDVBlauncher;
uses
Forms, Windows, sysutils, messages;
const
iNagScreen = 'Transponder list options';
var hw: HWND;
timer: Cardinal;
{$R *.res}
begin
Application.Initialize;
Application.Title := 'ProgDVB launcher';
Application.Run;
SetCurrentDir('C:\Program Files\ProgDVB');
WinExec('C:\Program Files\ProgDVB\ProgDVB.exe', SW_NORMAL);
timer := 0;
repeat
sleep(400);
Inc(timer);
HW := FindWindow(nil,iNagScreen);
until (hw <> 0) or (timer>=100);
if hw <> 0 then
begin
SendMessage(hw,WM_CLOSE,0,0);
end;
end.
ma sfortunatamente i path si riferiscono al windows inglese ,mentre il programma nel mio Pc risiede in C:\Programmi\....
nella mia totale ignoranza ho pensato potesse trattarsi di Delphi, googlando un pò la struttura pare quella
qualcuno di buon cuore potrebbe gentilmente ricompilarlo con i path corretti?
grazie in anticipo
Ho per le mani la soluzione ad un problema che ho con un programma (progDVB) che sul mio PC crasha
sfortunatamente mi mancano i mezzi e conoscenze per operare
a questo -> link (http://forum.progdvb.com/old/showflat.php?Cat=&Board=Progdvb&Number=5168&page=9&view=collapsed&sb=5&o=&fpart=1) un utente posta la soluzione del problema che consiste in un eseguibile di sua programmazione che va a fare da launcher al ProgDVB e ne impedisce il crash
riporta anche il codice
program ProgDVBlauncher;
uses
Forms, Windows, sysutils, messages;
const
iNagScreen = 'Transponder list options';
var hw: HWND;
timer: Cardinal;
{$R *.res}
begin
Application.Initialize;
Application.Title := 'ProgDVB launcher';
Application.Run;
SetCurrentDir('C:\Program Files\ProgDVB');
WinExec('C:\Program Files\ProgDVB\ProgDVB.exe', SW_NORMAL);
timer := 0;
repeat
sleep(400);
Inc(timer);
HW := FindWindow(nil,iNagScreen);
until (hw <> 0) or (timer>=100);
if hw <> 0 then
begin
SendMessage(hw,WM_CLOSE,0,0);
end;
end.
ma sfortunatamente i path si riferiscono al windows inglese ,mentre il programma nel mio Pc risiede in C:\Programmi\....
nella mia totale ignoranza ho pensato potesse trattarsi di Delphi, googlando un pò la struttura pare quella
qualcuno di buon cuore potrebbe gentilmente ricompilarlo con i path corretti?
grazie in anticipo