Jump to content
Fórum Script Brasil

Francis carlos

Membros
  • Content Count

    10
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Francis carlos

  1. não é bem isso esse programa parece que da load em dll c+ o que eu quero é comverter o code esse programa num converte .cpp nem .h
  2. Ola!! já tentei usar um programa C2 Delphi pra converter + não ficou muito bom. quero por este code em uma dll
  3. ola ajudem com esse code gostaria que convertecem em delphi...
  4. ola !! tenho um driver.sys estou dando load no driver virtual meu problema é como colocar umas função dentro desse driver ex: //para dar load no driver var Res: boolean; r: dword; begin drPath := ExtractFilePath(paramstr(0)) + 'Driver.sys'; InstallDriver(drName, PChar(drPath)); LoadDriver(drName); Res := OpenDriver(); if Res then begin end else begin end; end; //função que quero dentro do driver function processExists(exeFileName: string): Boolean; var ContinueLoop: BOOL; FSnapsho
  5. Ola !! eu axei um code, e estava faltando umas paradinha e tentei corrigir mas ainda não funciona 100% eu aperto f11 a aplicação fica em 800x600 mas quando aperto f12 não ta copiando e criando o icon da outra aplicação no systray e não da hide na aplicação. gostaria que decem uma olhada e comentacem que ta errado. unit minim; interface uses Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ShellApi; const IDT_RESET = (WM_USER+WM_TIMER+255); SC_SENDTOTRAY = -9; TRAYICONID = 4; WS_HOOKEDWINDOW = (WS_CAPTION or WS_SYSMENU); SWP_HOOKED = (SWP_DRAWF
  6. sim mas que eu realmente quero e por resolução nesse outro aplicativo que é um jogo quando ele ta em full resolução essa função aii não minimiza ex: handleJan := FindWindow('MU', nil); << resolução 800*600 minimize
  7. queria uma ajuda para minimizar e mudar resolução para 800*600 do outro aplicativo estou tentando com esse code.. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry,TypInfo; type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); private procedure WMHotkey(var Msg: TWMHotkey); message WM_HOTKEY; { Private declarations } public { Public declarations } end; var Form
  8. amigo é que ta mal convertida, ta com muitos errinhos você poderia ajudar corrigir ex: type WNDDATA = record m_hWnd: HWND; m_OrigWndProc LRESULT; << falta : m_niData: NOTIFYICONDATA; m_Subclassed: BOOL; m_Hidden: BOOL; end; e otras coisinhas
  9. unit HookDLL; interface uses Windows; const IDT_RESET = (WM_USER+WM_TIMER+0xff); SC_SENDTOTRAY = -90; TRAYICONID = 4; WS_HOOKEDWINDOW = (WS_CAPTION or WS_SYSMENU); SWP_HOOKED = (SWP_DRAWFRAME or SWP_FRAMECHANGED or SWP_NOMOVE or SWP_NOZORDER or SWP_SHOWWINDOW); type WNDDATA = record m_hWnd: HWND; m_OrigWndProc LRESULT; m_niData: NOTIFYICONDATA; m_Subclassed: BOOL; m_Hidden: BOOL; end; <div>#pragma data_seg(".SHARE") HHOOK g_KBHook = NULL; WNDDATA g_Window; BOOL g_InUse = FALSE; BOOL g_bKeyF12 = FALSE; BOOL g_bKeyF1
  10. Ola!! Ajuda Converter esse code para delphi7 // HookDLL.cpp : Defines the entry point for the DLL application. // #include "stdafx.h" #include "HookDLL.h" BOOL APIENTRY DllMain( HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved ) { //Flesh out the entry point pending full implimentation // reserve the DLL handle ghModule = (HINSTANCE)hModule; // register system-wide message SWM_TRAYMSG = RegisterWindowMessage("TRAY_ACTIVATED"); // will be used when sending window to tray switch (ul_re
×
×
  • Create New...