· Modificar la prioridad de un proceso, por el nombre.

#Region " Set Process Priority By Name "
 
    ' [ Set Process Priority By Name Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_Process_Priority_By_Name("notepad.exe", ProcessPriorityClass.RealTime)
    ' Set_Process_Priority_By_Name("notepad", ProcessPriorityClass.Idle, False)
 
    Private Function Set_Process_Priority_By_Name(ByVal ProcessName As String, _
                                      ByVal Priority As ProcessPriorityClass, _
                                      Optional ByVal OnlyFirstFound As Boolean = True
                                    ) As Boolean
        Try
            If ProcessName.ToLower.EndsWith(".exe") Then ProcessName = ProcessName.Substring(0, ProcessName.Length - 4)
 
            For Each Proc As Process In System.Diagnostics.Process.GetProcessesByName(ProcessName)
                Proc.PriorityClass = Priority
                If OnlyFirstFound Then Exit For
            Next
 
            Return True
 
        Catch ex As Exception
            ' Return False
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
#End Region

---

· Modificar la prioridad de un proceso, por el handle y usando APIS.

#Region " Set Process Priority By Handle "
 
    ' [ Set Process Priority By Handle Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_Process_Priority_By_Handle(Process.GetCurrentProcess().Handle, Process_Priority.RealTime)
    ' Set_Process_Priority_By_Handle(33033, Process_Priority.Idle)
 
    Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
    Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
 
    Public Enum Process_Priority As Int32
        RealTime = 256
        High = 128
        Above_Normal = 32768
        Normal = 32
        Below_Normal = 16384
        Low = 64
    End Enum
 
    Private Function Set_Process_Priority_By_Handle(ByVal Process_Handle As IntPtr, _
                                                    ByVal Process_Priority As Process_Priority) As Boolean
 
        SetPriorityClass(Process_Handle, Process_Priority)
        If GetPriorityClass(Process_Handle) = Process_Priority Then _
             Return True _
        Else Return False ' Return false if priority can't be changed 'cause user permissions.
 
    End Function
 
#End Region

---

· modificar la prioridad del Thread actual:

#Region " Set Current Thread Priority "
 
    ' [ Set Current Thread Priority Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_Current_Thread_Priority(Threading.ThreadPriority.AboveNormal)
    ' MsgBox(Set_Current_Thread_Priority(Threading.ThreadPriority.Highest))
 
    Public Shared Function Set_Current_Thread_Priority(ByVal Thread_Priority As Threading.ThreadPriority) As Boolean
        Try
            Threading.Thread.CurrentThread.Priority = Thread_Priority
            Return True
        Catch ex As Exception
            ' Return False
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
#End Region

---

· Comprimir con DotNetZip

#Region " DotNetZip Compress "
 
    ' [ DotNetZip Compress Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' 1. Add a reference to "Ionic.Zip.dll".
    ' 2. Use the code below.
    '
    ' Examples:
    ' DotNetZip_Compress("C:\File.txt")
    ' DotNetZip_Compress("C:\Folder")
    ' DotNetZip_Compress("C:\Folder", "C:\Folder\Test.zip", , CompressionLevel.BestCompression, "Password", EncryptionAlgorithm.WinZipAes256)
 
    Imports Ionic.Zip
    Imports Ionic.Zlib
 
    Private Function DotNetZip_Compress(ByVal Input_DirOrFile As String, _
                                      Optional ByVal OutputFileName As String = Nothing, _
                                      Optional ByVal CompressionMethod As CompressionMethod = CompressionMethod.None, _
                                      Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Default, _
                                      Optional ByVal Password As String = Nothing, _
                                      Optional ByVal Encrypt_Password As EncryptionAlgorithm = EncryptionAlgorithm.None _
                                    ) As Boolean
        Try
            ' Create compressor 
            Dim Compressor As ZipFile = New ZipFile
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            Compressor.CompressionMethod = CompressionMethod ' Compression method
            Compressor.Password = Password ' Zip Password
            Compressor.TempFileFolder = System.IO.Path.GetTempPath() ' Temp folder for operations
 
            If Password Is Nothing AndAlso Not Encrypt_Password = EncryptionAlgorithm.None Then _
                 Compressor.Encryption = EncryptionAlgorithm.None _
            Else Compressor.Encryption = Encrypt_Password ' Encryption for Zip password.
 
            ' Add Progress Handler
            ' AddHandler Compressor.SaveProgress, AddressOf DotNetZip_Compress_Progress
 
            ' Removes the end slash ("\") if is given for a directory.
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then _
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & ".zip").Replace("\\", "\")
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' It's a Dir
                Compressor.AddDirectory(Input_DirOrFile)
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' It's a File
                Compressor.AddFile(Input_DirOrFile)
            End If
 
            Compressor.Save(OutputFileName)
            Compressor.Dispose()
 
        Catch ex As Exception
            'Return False ' File not compressed
            Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    'Public Sub DotNetZip_Compress_Progress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)
    '
    '    If e.EventType = ZipProgressEventType.Saving_Started Then
    '        MsgBox("Begin Saving: " & _
    '               e.ArchiveName) ' Destination ZIP filename
    '
    '    ElseIf e.EventType = ZipProgressEventType.Saving_BeforeWriteEntry Then
    '        MsgBox("Writing: " & e.CurrentEntry.FileName & _
    '               " (" & (e.EntriesSaved + 1) & "/" & e.EntriesTotal & ")") ' Input filename to be compressed
    '
    '        ' ProgressBar2.Maximum = e.EntriesTotal   ' Count of total files to compress
    '        ' ProgressBar2.Value = e.EntriesSaved + 1 ' Count of compressed files
    '
    '    ElseIf e.EventType = ZipProgressEventType.Saving_EntryBytesRead Then
    '        ' ProgressBar1.Value = CType((e.BytesTransferred * 100) / e.TotalBytesToTransfer, Integer) ' Total Progress
    '
    '    ElseIf e.EventType = ZipProgressEventType.Saving_Completed Then
    '        MessageBox.Show("Compression Done: " & vbNewLine & _
    '                        e.ArchiveName) ' Compression finished
    '    End If
    '
    'End Sub
 
#End Region

---

· Crear un SFX con DotNetZip

#Region " DotNetZip Compress SFX "
 
 
    ' [ DotNetZip Compress SFX Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' 1. Add a reference to "Ionic.Zip.dll".
    ' 2. Use the code below.
    '
    ' Examples:
    ' DotNetZip_Compress_SFX("C:\File.txt")
    ' DotNetZip_Compress_SFX("C:\Folder")
    '
    ' DotNetZip_Compress_SFX( _
    '    "C:\File.txt", "C:\Test.exe", , CompressionLevel.BestCompression, _
    '    "MyPassword", EncryptionAlgorithm.WinZipAes256, , , _
    '    ExtractExistingFileAction.OverwriteSilently, , , , _
    '    System.IO.Path.GetFileName("notepad.exe") _
    ' )
 
 
    Imports Ionic.Zip
    Imports Ionic.Zlib
 
    Private Function DotNetZip_Compress_SFX(ByVal Input_DirOrFile As String, _
                                      Optional ByVal OutputFileName As String = Nothing, _
                                      Optional ByVal CompressionMethod As CompressionMethod = CompressionMethod.None, _
                                      Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Default, _
                                      Optional ByVal Password As String = Nothing, _
                                      Optional ByVal Encrypt_Password As EncryptionAlgorithm = EncryptionAlgorithm.None, _
                                      Optional ByVal Extraction_Directory As String = ".\", _
                                      Optional ByVal Silent_Extraction As Boolean = False, _
                                      Optional ByVal Overwrite_Files As ExtractExistingFileAction = ExtractExistingFileAction.InvokeExtractProgressEvent, _
                                      Optional ByVal Delete_Extracted_Files_After_Extraction As Boolean = False, _
                                      Optional ByVal Icon As String = Nothing, _
                                      Optional ByVal Window_Title As String = Nothing, _
                                      Optional ByVal Window_Style As SelfExtractorFlavor = SelfExtractorFlavor.WinFormsApplication, _
                                      Optional ByVal Command_Line_Argument As String = Nothing _
                                    ) As Boolean
        Try
            ' Create compressor 
            Dim Compressor As ZipFile = New ZipFile
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            ' Compression method
            Compressor.Password = Password ' Zip Password
            Compressor.TempFileFolder = System.IO.Path.GetTempPath() ' Temp folder for operations
 
            If Password Is Nothing AndAlso Not Encrypt_Password = EncryptionAlgorithm.None Then
                Compressor.Encryption = EncryptionAlgorithm.None ' No encryption because no password.
                Compressor.CompressionMethod = CompressionMethod ' Set any compression method.
            Else
                Compressor.Encryption = Encrypt_Password ' Set Encryption for Zip password.
                Compressor.CompressionMethod = CompressionMethod.Deflate ' Set deflate method to don't destroy the SFX if AES encryption.
            End If
 
            Dim SFX_Options As New SelfExtractorSaveOptions()
            SFX_Options.DefaultExtractDirectory = Extraction_Directory
            SFX_Options.Quiet = Silent_Extraction
            SFX_Options.ExtractExistingFile = ExtractExistingFileAction.OverwriteSilently
            SFX_Options.RemoveUnpackedFilesAfterExecute = Delete_Extracted_Files_After_Extraction
            SFX_Options.Flavor = Window_Style
            SFX_Options.PostExtractCommandLine = Command_Line_Argument
            If Not Icon Is Nothing Then SFX_Options.IconFile = Icon
            If Not Window_Title Is Nothing Then SFX_Options.SfxExeWindowTitle = Window_Title
 
            ' Add Progress Handler
            ' AddHandler Compressor.SaveProgress, AddressOf DotNetZip_Compress_SFX_Progress
 
            ' Removes the end slash ("\") if is given for a directory.
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then _
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & ".exe").Replace("\\", "\")
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' It's a Dir
                Compressor.AddDirectory(Input_DirOrFile)
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' It's a File
                Compressor.AddFile(Input_DirOrFile)
            End If
 
            Compressor.SaveSelfExtractor(OutputFileName, SFX_Options)
            Compressor.Dispose()
 
        Catch ex As Exception
            'Return False ' File not compressed
            Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    ' Public Sub DotNetZip_Compress_SFX_Progress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)
    '
    '    If e.EventType = ZipProgressEventType.Saving_Started Then
    '        MsgBox("Begin Saving: " & _
    '               e.ArchiveName) ' Destination ZIP filename
    '
    '    ElseIf e.EventType = ZipProgressEventType.Saving_BeforeWriteEntry Then
    '        MsgBox("Writing: " & e.CurrentEntry.FileName & _
    '               " (" & (e.EntriesSaved + 1) & "/" & e.EntriesTotal & ")") ' Input filename to be compressed
    '
    '        ' ProgressBar2.Maximum = e.EntriesTotal   ' Count of total files to compress
    '        ' ProgressBar2.Value = e.EntriesSaved + 1 ' Count of compressed files
    '
    '    ElseIf e.EventType = ZipProgressEventType.Saving_EntryBytesRead Then
    '        ' ProgressBar1.Value = CType((e.BytesTransferred * 100) / e.TotalBytesToTransfer, Integer) ' Total Progress
    '
    '    ElseIf e.EventType = ZipProgressEventType.Saving_Completed Then
    '        MessageBox.Show("Compression Done: " & vbNewLine & _
    '                        e.ArchiveName) ' Compression finished
    '    End If
    '
    ' End Sub
 
#End Region

---

· Descomprimir con DotNetZip

#Region " DotNetZip Extract "
 
    ' [ DotNetZip Extract Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' 1. Add a reference to "Ionic.Zip.dll".
    ' 2. Use the code below.
    '
    ' Examples:
    ' DotNetZip_Extract("C:\File.zip")
    ' DotNetZip_Extract("C:\File.zip", "C:\Folder\Test\", , "MyPassword")
 
    Imports Ionic.Zip
    Imports Ionic.Zlib
 
    Dim ZipFileCount As Long = 0
    Dim ExtractedFileCount As Long = 0
 
    Private Function DotNetZip_Extract(ByVal InputFile As String, _
                                       Optional ByVal OutputDir As String = Nothing, _
                                       Optional ByVal Overwrite As ExtractExistingFileAction = ExtractExistingFileAction.DoNotOverwrite, _
                                       Optional ByVal Password As String = "Nothing" _
                                     ) As Boolean
        Try
            ' Create Extractor 
            Dim Extractor As ZipFile = ZipFile.Read(InputFile)
 
            ' Set Extractor parameters
            Extractor.Password = Password ' Zip Password
            Extractor.TempFileFolder = System.IO.Path.GetTempPath() ' Temp folder for operations
            Extractor.ZipErrorAction = ZipErrorAction.Throw
 
            ' Specify the output path where the files will be extracted
            If OutputDir Is Nothing Then OutputDir = My.Computer.FileSystem.GetFileInfo(InputFile).DirectoryName
 
            ' Add Progress
            'AddHandler Extractor.ExtractProgress, AddressOf DotNetZip_Extract_Progress ' Progress Handler
            'For Each Entry As ZipEntry In Extractor.Entries : ZipFileCount += 1 : Next ' Total bytes size of Zip
            'ZipFileCount = Extractor.Entries.Count ' Total files inside Zip
 
            ' Start the extraction
            For Each Entry As ZipEntry In Extractor.Entries : Entry.Extract(OutputDir, Overwrite) : Next
 
            ZipFileCount = 0 : ExtractedFileCount = 0 ' Reset vars
            Extractor.Dispose()
            Return True ' File Extracted
 
        Catch ex As Exception
            ' Return False ' File not extracted
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    ' Public Sub DotNetZip_Extract_Progress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)
    ' 
    '     If e.EventType = ZipProgressEventType.Extracting_BeforeExtractEntry Then
    '         If ExtractedFileCount = 0 Then
    '             MsgBox("Begin Extracting: " & _
    '                     e.ArchiveName) ' Input ZIP filename
    '         End If
    ' 
    '         ExtractedFileCount += 1
    '         MsgBox("Writing: " & e.CurrentEntry.FileName & _
    '                " (" & (ExtractedFileCount) & "/" & ZipFileCount & ")") ' Output filename uncompressing
    ' 
    '         ProgressBar1.Maximum = ZipFileCount     ' Count of total files to uncompress
    '         ProgressBar1.Value = ExtractedFileCount ' Count of uncompressed files
    ' 
    '     ElseIf e.EventType = ZipProgressEventType.Extracting_AfterExtractEntry Then
    '         If ExtractedFileCount = ZipFileCount Then
    '             MessageBox.Show("Extraction Done: " & vbNewLine & _
    '                             e.ArchiveName) ' Uncompression finished
    '         End If
    '     End If
    ' 
    ' End Sub
 
#End Region

Py2Exe es un full-of-errors y comederos de cabeza cuando se utiliza en x64, yo no lo usaría para "compilar" mis scripts aunque me pagasen por ello.

Si la cuestión trata de "compilar", les recomiendo este y ningún otro: http://cx-freeze.sourceforge.net/

...Pero son libres de elegir.

Saludos!

El tema ha sido movido a Programación General.
Delphi/Pascal no es un lenguaje interpretado .
http://foro.elhacker.net/index.php?topic=388274.0

A petición de un usuario aquí tienen la plantilla por defecto que uso para mis instaladores...


Setup.iss

; = = = = = = = = = = = = = = = = = = =
; Default Template (by Elektro H@cker) |
;                                      |
;            InnoSetup 5.5.3           |
; = = = = = = = = = = = = = = = = = = =
 
[Setup]
 
; Info
; ----
#define Name "Application"
#define Version "1.0"
#define EXE "Application.exe"
AppName={#Name}
AppVersion={#Version}
AppVerName={#Name} {#Version}
AppCopyright=Elektro H@cker
AppPublisher=Elektro H@cker
 
; Paths
; -----
DefaultDirName={pf}\{#Name}
DefaultGroupName={#Name}
OutputDir=.\Output\
OutputBaseFilename={#Name}
UninstallDisplayIcon={app}\{#EXE}
 
; Resources
; ---------
;SetupIconFile=Icon.ico
;WizardImageFile=Icon.bmp
;WizardSmallImageFile=Icon.bmp
;InfoBeforeFile=Info.txt
 
; Compression
; -----------
Compression=lzma/ultra
InternalCompressLevel=Ultra
SolidCompression=True
 
; Appearance
; ----------
AlwaysShowComponentsList=False
DisableDirPage=True
DisableProgramGroupPage=True
DisableReadyPage=True
DisableStartupPrompt=True
FlatComponentsList=False
LanguageDetectionMethod=None
PrivilegesRequired=PowerUser
RestartIfNeededByRun=False
ShowLanguageDialog=NO
ShowTasksTreeLines=True
Uninstallable=True
ArchitecturesAllowed=x86 x64
;ArchitecturesInstallIn64BitMode=x64
 
[Languages]
Name: spanish; MessagesFile: compiler:Languages\Spanish.isl
 
[Dirs]
;{sd}                  = C:\
;{commonappdata}       = C:\ProgramData
;{sd}\Users\{username} = C:\Users\UserName
;{userdesktop}         = C:\Users\UserName\Desktop
;{localappdata}        = C:\Users\UserName\AppData\Local
;{userappdata}         = C:\Users\UserName\AppData\Roaming
;{userstartmenu}       = C:\Users\UserName\AppData\Roaming\Microsoft\Windows\Start Menu
 
[Files]
;Source: {app}\*.*; DestDir: {app}; DestName:; Attribs:; Flags:;
;Attribs: ReadOnly Hidden System
;DestName: Example.exe
;Flags: 32bit 64bit Deleteafterinstall IgnoreVersion NoCompression Onlyifdoesntexist recursesubdirs uninsneveruninstall
 
[Registry]
;Root: HKCR; Subkey: SystemFileAssociations\.ext\Shell\OPTION; ValueName: Icon; ValueType: String; ValueData: {app}\{#Exe}; Flags: ;
;Root: HKCR; Subkey: SystemFileAssociations\.ext\Shell\OPTION\Command; ValueType: String; ValueData: """{app}\{#Exe}"" ""%1"""; Flags: ;
;Flags: uninsdeletevalue uninsdeletekey
 
[Tasks]
;Name: Identifier; Description: Title; GroupDescription: Group; Flags:;
;Flags: Unchecked
 
[Run]
;Filename: "{cmd}"; Parameters: "/C command"; StatusMsg: "Installing..."; Flags: RunHidden WaitUntilTerminated
;Filename: {app}\{#Exe}; Description: {cm:LaunchProgram,{#Nombre}}; Flags: NoWait PostInstall SkipIfSilent ShellExec Unchecked
;Flags: 32bit 64bit RunHidden WaitUntilTerminated NoWait PostInstall SkipIfSilent ShellExec Unchecked
 
[Icons]
Name: {userstartmenu}\Programs\{#Name}; Filename: {app}\{#Exe}; Iconfilename: {app}\{#Exe}; WorkingDir: {app}
 
[Code]
 
const
  Custom_Height = 440;
  Custom_ProgressBar_Height = 20;
  Page_Color = clwhite;
  Page_Color_Alternative1 = clblack;
  Page_Color_Alternative2 = clwhite;
  Font_Color = clblack;
 
 
var
  DefaultTop,
  DefaultLeft,
  DefaultHeight,
  DefaultBackTop,
  DefaultNextTop,
  DefaultCancelTop,
  DefaultBevelTop,
  DefaultOuterHeight: Integer;
 
 
procedure InitializeWizard();
begin
 
  DefaultTop := WizardForm.Top;
  DefaultLeft := WizardForm.Left;
  DefaultHeight := WizardForm.Height;
  DefaultBackTop := WizardForm.BackButton.Top;
  DefaultNextTop := WizardForm.NextButton.Top;
  DefaultCancelTop := WizardForm.CancelButton.Top;
  DefaultBevelTop := WizardForm.Bevel.Top;
  DefaultOuterHeight := WizardForm.OuterNotebook.Height;
 
 
  // Pages (Size)
  WizardForm.Height := Custom_Height;
  WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (Custom_Height - DefaultHeight);
  WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (Custom_Height - DefaultHeight);
 
 
  // Pages (Color)
  WizardForm.color := Page_Color_Alternative1;
  WizardForm.FinishedPage.Color  := Page_Color;
  WizardForm.InfoAfterPage.Color := Page_Color;
  WizardForm.InfoBeforePage.Color := Page_Color;
  WizardForm.InnerPage.Color := Page_Color;
  WizardForm.InstallingPage.color := Page_Color;
  WizardForm.LicensePage.Color := Page_Color;
  WizardForm.PasswordPage.color := Page_Color;
  WizardForm.PreparingPage.color := Page_Color;
  WizardForm.ReadyPage.Color := Page_Color;
  WizardForm.SelectComponentsPage.Color  := Page_Color;
  WizardForm.SelectDirPage.Color  := Page_Color;
  WizardForm.SelectProgramGroupPage.color := Page_Color;
  WizardForm.SelectTasksPage.color := Page_Color;
  WizardForm.UserInfoPage.color := Page_Color;
  WizardForm.WelcomePage.color := Page_Color;
 
 
  // Controls (Size)
  WizardForm.InfoAfterMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.InfoBeforeMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.InnerNotebook.Height :=  WizardForm.InnerNotebook.Height + (Custom_Height - DefaultHeight);
  WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (Custom_Height - DefaultHeight);
  WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (Custom_Height - DefaultHeight);
  WizardForm.ProgressGauge.Height := Custom_ProgressBar_Height
  WizardForm.ReadyMemo.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.Taskslist.Height := (Custom_Height - (DefaultHeight / 2));
  WizardForm.WizardBitmapImage.Height := (Custom_Height - (DefaultHeight - DefaultBevelTop));
  WizardForm.WizardBitmapImage2.Height  := (Custom_Height - (DefaultHeight - DefaultBevelTop));
 
 
  // Controls (Location)
  WizardForm.BackButton.Top := DefaultBackTop + (Custom_Height - DefaultHeight);
  WizardForm.Bevel.Top := DefaultBevelTop + (Custom_Height - DefaultHeight);
  WizardForm.CancelButton.Top := DefaultCancelTop + (Custom_Height - DefaultHeight);
  WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (Custom_Height - DefaultHeight);
  WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (Custom_Height - DefaultHeight);
  WizardForm.NextButton.Top := DefaultNextTop + (Custom_Height - DefaultHeight);
  WizardForm.Top := DefaultTop - (Custom_Height - DefaultHeight) div 2;
  //WizardForm.ProgressGauge.Top := (DefaultHeight / 2)
 
 
  // Controls (Back Color)
  WizardForm.DirEdit.Color  := Page_Color_Alternative2;
  WizardForm.GroupEdit.Color  := Page_Color_Alternative2;
  WizardForm.InfoAfterMemo.Color := Page_Color_Alternative2;
  WizardForm.InfoBeforeMemo.Color := Page_Color_Alternative2;
  WizardForm.LicenseMemo.Color := Page_Color_Alternative2;
  WizardForm.MainPanel.Color := Page_Color;
  WizardForm.PasswordEdit.Color  := Page_Color_Alternative2;
  WizardForm.ReadyMemo.Color := Page_Color_Alternative2;
  WizardForm.Taskslist.Color := Page_Color;
  WizardForm.UserInfoNameEdit.Color  := Page_Color_Alternative2;
  WizardForm.UserInfoOrgEdit.Color  := Page_Color_Alternative2;
  WizardForm.UserInfoSerialEdit.Color  := Page_Color_Alternative2;
 
 
  // Controls (Font Color)
  WizardForm.FinishedHeadingLabel.font.color  := Font_Color;
  WizardForm.InfoafterMemo.font.Color  := Font_Color;
  WizardForm.FinishedLabel.font.color  := Font_Color;
  WizardForm.DirEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.Font.color := Font_Color;
  WizardForm.GroupEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.InfoBeforeMemo.font.Color  := Page_Color_Alternative1;
  WizardForm.LicenseMemo.font.Color  := Page_Color_Alternative1;
  WizardForm.MainPanel.font.Color := Font_Color;
  WizardForm.PageDescriptionLabel.font.color  := Font_Color;
  WizardForm.PageNameLabel.font.color  := Font_Color;
  WizardForm.PasswordEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.Taskslist.font.Color  := Font_Color;
  WizardForm.UserInfoNameEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.UserInfoOrgEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.UserInfoSerialEdit.font.Color  := Page_Color_Alternative1;
  WizardForm.WelcomeLabel1.font.color  := Font_Color;
  WizardForm.WelcomeLabel2.font.color  := Font_Color;
  WizardForm.ReadyMemo.font.Color := Page_Color_Alternative1;
 
end;

Este es el aspecto por defecto:




Y se puede customizar un poco el aspecto para conseguir algo parecido a esto, sólamente cambiando las variables de la plantilla...

[/code]

De lo que se trata es de aprender poco a poco, con ejemplos pero sin que te lo den todo hecho, yo ya te dí casi todo hecho, solo hay que colocar cada cosa en su sitio .

Intenta hacerlo y si aún no lo has conseguido postea el código que llevas y te lo corregiré en un minuti momento.

Un saludo.

aquí tienes un pequeñísimo ejemplo:

http://foro.elhacker.net/scripting/deshabilitar_pestana_procesos_del_administardor_de_tareas-t378796.0.html;msg1811891#msg1811891



Saludos

Fíjate en el código, puedes pedir el texto a introducir exáctamente de la misma manera que se puede pedir el archivo de texto en el script que te he puesto de ejemplo. Te quise poner un ejemplo de las dos maneras.



Saludos!

¡ Llegó la nueva versión del instalador !

He corregido un error que sufrieron algunas personas con la carpeta de instalación del VS en la version antigua de este instalador...
Además lo he optimizado tanto en el sistema de la instalación de los componentes, como en su desinstalación... ...Y contiene más librerías, más controles, y más snippets!

La instalación completa y la instalación por defecto han sido testeadas en Windows 7 de 32 y 64 Bits, en Windows XP tampoco debería haber problemas.



LO PUEDEN DESCARGAR DE FORMA DIRECTA EN EL COMENTARIO PRINCIPAL DE ESTE HILO.



         

Me ha hecho mucha gracia el video, es un tutorial express xD

"...Y después de instalar esto le pinchamos aquí para abrir el .NET, que tarda unas 400 horas en abrirse, pero yo ya lo tenia abierto así que..." X'D

Gracias por el video.

PD: El idioma por defecto de la IDE es Inglés, para poder elegir Español (como comentas en tu tuto) hay que instalar el idioma español para la IDe (Que va incluida en el instalador).