代码搜索:CreateParams
找到约 107 项符合「CreateParams」的源代码
代码结果 107
www.eeworm.com/read/115774/15001686
txt bcjq048.txt
C++ Builder开发者:程序员之家
var how_many_ads = 3;
var now = new Date()
var sec = now.getSeconds()
var ad = sec % how_many_ads;
ad +=1;
首页
www.eeworm.com/read/153248/5652197
bat ramdisk.bat
;@echo off
;goto make
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; RamDisk GUI
;
; Written by Four-F (four-f@mail.ru)
;
;:::::::
www.eeworm.com/read/147579/12545111
pas fselect.pas
unit fselect;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TF_select = class(TForm)
ListBox1: TListBox;
www.eeworm.com/read/237993/13914234
txt 避免二次运行.txt
避免二次运行
实现单实例运行的关键是判断前一实例是否存在,Win3.x中运行的程序能获知前 一实例的句柄,从而可以方便地进行判断,但 Windows 95 是抢先式多任务系统,其程序的前一实例句柄恒为零,所以只有另寻其他办法。目前最有效的办法是通过查看是否有相同窗口类名的例程存在来进行判断。下面介绍在Delphi中实现的方法。
1、对主窗口程序的改动:
在主窗口(即程 ...
www.eeworm.com/read/132906/14066791
txt 禁止运行同一程序的多个实例.txt
禁止运行同一程序的多个实例
有uses下面加入常量
CM_RESTORE=WM_USER+$1000;
在public段加入
procedure createparams(var params:Tcreateparams);override;
procedure restorerequest(var message:Tmessage);message CM_RESTORE;
在程序写入
www.eeworm.com/read/201544/15401922
txt 避免二次运行 (2000年8月11日).txt
避免二次运行 (2000年8月11日)
本站更新 分类: 作者:转载至http://www.nease.net/~ganglion 推荐: 阅读次数:731
(http://www.codesky.net)
------------------------------------------------------------------------------
www.eeworm.com/read/416105/11041831
pas basefrm.pas
unit BaseFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TBaseForm = class(TForm)
protected
procedure CreateParam
www.eeworm.com/read/248144/12593766
pas transpaf.pas
unit TranspaF;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
www.eeworm.com/read/248144/12594563
pas transpaf.pas
unit TranspaF;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
www.eeworm.com/read/248144/12594869
pas transpaf.pas
unit TranspaF;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public